Worksheet_Change
29.05.2004 12:01:56
Volker
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
a = 0
Sheets("Vor1").Activate
Range("G4").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value > "" Then
Selection.EntireRow.Insert
a = a + 1
If a = 10 Then ActiveCell.Offset(3, 0).Select
ActiveCell.Offset(3, 0).Select
Else
End If
Loop
Sheets("Vor1").Activate
Range("G4").Select
End Sub
Hallo ich habe das gefühl das mein Programm nicht automatisch läuft.
Normal müßte doch G4 angesprochen werden?
Kann das sein, das es garnicht angesprochen wird?
Es müßte automatisch laufen oder nicht?
Bitte um Hilfe!!!