Überprüfung, ob Zelle leer ist
19.06.2019 13:33:14
MaAs
ich habe folgendes Problem:
In meiner ursprünglichen Tabelle sind nur die Spalten A bis J beschriftet, wobei Spalte C Namen enthält. Die Namen können einmal, zweimal oder dreimal untereinander erscheinen.
Ich lasse nun untersuchen, ob die Namen in Spalte C mehrfach vorkommen. Wenn ja, dann werden die Eigenschaften aus Spalten 6 bis 10 kopiert und in den Spalten 11 bis 15 eingefügt. Das klappt klappt auch soweit. Wenn aber der Name ein drittes Mal auftaucht, sollen die Eigenschaften in Spalte 16 eingefügt werden, da ja die Spalten 11 bis 15 bereits belegt sind. Das funktioniert aber nicht, statt dessen werden die Spalten 11 bis 15 überschrieben. Ich hoffe, ich konnte mein Anliegen einigermaßen anschaulich schildern. Hier das Makro:
Sub Mehrfachkurse()
Dim i As Integer
For i = 2 To 500
If IsEmpty(Cells(i, 3).Value) = True Then
Exit Sub
Else
Do While Cells(i, 3).Value = Cells(i + 1, 3).Value
Range(Cells(i + 1, 6), Cells(i + 1, 10)).Select
Selection.Copy
If IsEmpty(Tabelle1.Cells(i, 11).Value) = True Then
Cells(i, 11).PasteSpecial Paste:=xlPasteValues
Else
Cells(i, 16).PasteSpecial Paste:=xlPasteValues
Cells(i + 1, 6).EntireRow.Delete
End If
Loop
End If
Next
End Sub
Vielen Dank
Mariam