Schleife in VBA
15.07.2015 09:33:51
Rebeca
ich bin neu in der VBA Welt und habe dementsprechend Probleme meine Vorstellungen in einen richtigen Code umzusetzen.
Es geht im Prinzip darum:
Wenn in Spalte A nichts steht, soll der Inhalt bestimmter Zellen (F5 und I5:M5) gelöscht werden und die Werte aus bestimmten Zellen in andere kopiert werden (z.B. G5 nach F5 und H5 nach G5). Dies soll für alle Zeilen geschehen, bis in Spalte A "Stopp" steht. Ich habe die Datei für besseres Verständnis angehangen.
https://www.herber.de/bbs/user/98828.xlsx
Der Code den ich bisher geschrieben habe, sieht wie folgt aus:
Public Sub Löschen()
Dim Eingabe_Personalkosten As Worksheet
Sheets("Eingabe_Personalkosten").Select
For i = 9 To 999
If Eingabe_Personalkosten.Cells(i, 1) = 1 Then
Range("F9").Select
Selection.ClearContents
Range("I9:L9").Select
Selection.ClearContents
Range("G9").Select
Selection.Copy
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G9").Select
Selection.ClearContents
Else: If Eingabe_Personalkosten.Cells(i, 1) = "Stopp" Then End If
Exit For
Next i
End Sub
Vielen lieben Dank schonmal für die Hilfe.
Liebe Grüße
Rebeca
Anzeige