Makroproblem

[RealmReborn]

Problem:
Ich brauch ein Makro das in einer OOo calc Tabelle eine bestimmte Spalte durchläuft und in jeder Zelle prüft ob X dasteht oder nicht.
Wenn X da steht Soll das Makro dann die Zeile wo die Zelle mit dem X ist von Spalte A-D umfärben.

Meine bisherige Idee war es dies per Select Case zu machen aber anscheinend nimmt er es nicht an wenn Case x dasteht bzw übergeht es einfach.
Meine zweite Idee war If/then welches auch nicht funktionierte.

Da ich ein totaler Anfänger mit OO Makros bin will ich hier mal um Hilfe fragen. Ich hab eine Beispiel Datei angehängt wo ich das auch nochma an der Tabelle erkläre.

P.S.: Die Seite von Dannenhoefer für Starbasic hab ich schon mir ma zu Rate gezogen dafür gehabt, aber leider nich ma die Hälfe von dem Dort verstanden.
Ich versuche wenn ich Makros von Euch vorgeschlagen bekomme auch die Einzelnen Abschnitte (Was die wo bewirken) zu verstehen.
Mann lernt ja nie aus.

Vielen Dank schon mal im Vorraus.

[Stephan]

z.B.:

Code: Alles auswählen

raus = 10
Spalte = ThisComponent.Sheets().getByName("Tabelle1")
i = 0
Do
  tmp = Spalte.getCellByPosition(4,i).FormulaLocal
  If tmp = "x" Then
      for j = 0 to 3
	    Spalte.getCellByPosition(j,i).CellBackColor = RGB(255,0,0)
	  Next j
	  raus = 10
	Else
	  raus = raus - 1
  End If
  i = i + 1
Loop While raus > 0

nur warum benutzt Du dafür keine bedingte Formatierung, ist doch genau dafür gedacht.


Gruß
Stephan

[RealmReborn]

Weils nur Teil von dem Makro is Was ich für meinen Chef verbessern soll. (Verwaltungsabteilung halt)
Und Vielen Dank nochmal ^^
Ich werds mal durchgehen damit ich die einzelnen Komponenten auch versteh.