Gruppe
Allgemein
Problem
Die Daten aus dem Bereich C3:C6 sollen in das Blatt Adressen in die nächste freie Zeile eingetragen werden.
StandardModule: basMain
Sub InsertData()
Dim iRow As Integer, iCounter As Integer
If WorksheetFunction.CountA(Range("C2:C6")) = 0 Then
MsgBox "Keine Daten vorhanden!"
Exit Sub
End If
With Worksheets("Adressen")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For iCounter = 1 To 5
.Cells(iRow, iCounter) = Cells(iCounter + 1, 3)
Next iCounter
End With
End Sub