Makro funzt nicht :-(
31.08.2005 12:33:05
Claudia
hab mal wieder ein kleines Prob.
In einem Drop Down Menue in der Spalte G4 - 34 wird eine Auswahl getroffen.
Wenn Beispielsweise ein U ausgewählt wurde, soll in Spalte K 4-34 etwas geschrieben werden (z.B. blubb).
Mein Ansatz:
Dim x As Integer
Dim y As Integer
For x = 4 To 34
For y = 11 To 11
'If (UCase(Cells(x, y).Value) = "U") Then
Cells(x, y).Formula = "blubb"
'End If
Next
Next
Ist wie hier das If ausgeklammert, dann wird auch das blubb in Spalte K geschrieben. Aber mit IF passiert gar nix mehr.
Ich befürchte ich spreche die Spalte G gar nicht an? kann das sein?
Ich hab dann noch versucht so darauf zuzugreifen:
If (UCase(Cells("G4:G34).Value) = "U") Then
Aber dann kommt die Fehlermeldung, dass die Typen unverträglich sind, was auch logisch ist, durch die Deklaration Integer.
Wer kann mir helfen?
Danke schon mal im voraus
Claudia