Excel soll vor Kopieren Zellen prüfen
11.03.2014 09:04:48
Johannes
Ich steh gerade vor einem Problem bei dem ich mir die Zähne ausbeiße.
Habe mehrere Tabellenblätter mit versch. Events die Daten von den Monatstabellen erhalten sollen.
Hab dafür in der spalte H ein Dropdown Menü und bei einem bestimmten Wort wird die ganze Zeile in das
bestimmte Tabellenblatt kopiert.
Dazu hab ich diesen Code:
Sub Zeilen_kopieren()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 13
For i = 13 To 1000
With Worksheets("Feb")
If .Cells(i, "H") = "Ball" Then
.Rows(i).Copy _
Destination:=Worksheets("Ball").Rows(a)
a = a + 1
End If
End With
Next i
End Sub
Der Code funktioniert einwandfrei. Mein Problem ist jedoch sobald ich zB vom Monat Feb
per Makro in das Tabellenblatt "Ball" Daten kopiere überschreibt er die Zeilen die von Monat Jan gekommen sind.
Ich bräuchte also einen zusätzlichen code der vorher überpfüft ob die Zeile leer ist und wenn nicht zur nächsten springt
und diese wieder prüft.
Leider übersteigt das meine laienhaften Vba Kenntnisse
Hoffe einer von euch könnte mir bei meinem Problem helfen.
Anzeige