Schleife beenden
07.10.2004 14:41:57
Andrej
ich muß ein makro schreiben. wenn zelle in einer bestimmten spalte beschrieben wird, dann wird automatisch eine andere zelle kopiert und ein paar zellen weiter eingefügt. das mit dem kopieren hat bei mir schon geklappt, aber nur in einer zeile. kann ich so was mit einer schleife machen und wie?
mein code(funktioniert, aber nicht richtig):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
i = 15
Do
If Cells(i, 13).Value <> "" Then
Tabelle1.severity
i = i + 1
End If
Loop Until IsEmpty(Cells(i, 13))
End Sub
Sub severity()
Dim i As Integer
i = 15
Do
ActiveSheet.Cells(i, 5).Copy Destination:=ActiveSheet.Cells(i, 16)
ActiveSheet.Cells(i, 5).Copy Destination:=ActiveSheet.Cells(i, 23)
i = i + 1
Loop Until IsEmpty(Cells(i, 13))
End Sub
Wie beende ich am besten die Schleife? Bie meinem code muß die obere Zeile ausgefüöllt sein bevor makro ausgeführt wird. Das möchte ich aber nicht. nicht jede zeile wird ausgefüllt.
Bitte helfen. mir fällt nichts ein
Danke Andrej
Anzeige