Prob bei Makroveränderung
15.07.2004 10:40:36
Oliver
ich habe mal wieder ein Problemchen...
Ich bin dabei, an einem Makro herumzuexperimentieren.
Hier der Makroausschnitt, an dem ich mich versuche:
Sub Übernahme()
Sheets("Hilfstabelle").Select
Dim laR As Long
With Sheets("Hilfstabelle")
If .Cells(65536, 7).End(xlUp).Row + 1 > 7 Then laR = .Cells(65536, 7).End(xlUp).Row + 1 Else laR = 7
.Cells(laR, 3).Value = Sheets("Suchmaske").Range("C5").Value
etc, etc, etc....
End With
Range("C7").Select
ActiveWindow.ScrollColumn = 2
etc, etc, etc...
ActiveWindow.ScrollColumn = 1
End Sub
Wenn ich nun in der "If.-Zeile" Veränderungen vornehme, dann funzt das Makro überhaupt nicht mehr. Auch dann nicht, wenn ich es in die ursprüngliche Version korrigiere....
Kann mir jemand bei diesem grds. Problemchen weiterhelfen?
Für Kenner und Genießer... letztlich geht es mir um folgendes:
Dieses Makro schaut doch, ob in Spalte G etwas in einer Zeile steht, wenn ja, dann werden Werte in die Folgezeile geschrieben....
Ich will, dass dies passiert, wenn in Spalte E etwas steht.....
Gruß und Dank,
Oliver W