Tabellenblatt ansprechen

Sub Uebert()
On Error GoTo fehler
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim lng_letzte_zeile As Long
Dim lng_zeile As Long
Dim lng_spalte As Long
Dim rng_gefunden As Range
Dim lng_artikelnummer As Long
Set obj_wks_ziel = Worksheets("Rapportieren")  ' Hier Zieltabellenblatt benennen
Set obj_wks_quelle = Worksheets("Materialdatenbank")  ' Hier Quelltabellenblatt benennen
For lng_spalte = 2 To Columns.Count Step 3 ' 2To = Erste Spalte definieren zum einfügen, Step3 = _
wie viel Spalte definieren zum einfügen
lng_letzte_zeile = obj_wks_ziel.Cells(Rows.Count, lng_spalte).End(xlUp).Row + 1 ' Erste _
leere zeile im Zielblatt ermitteln
If lng_letzte_zeile  5 Then  ' bei 2 Spalten 5, bei 3 Spalten 13, bei 4 Spalten 17, bei 5 Spalten 21
MsgBox "Es wurden bereits 3 Spalten mit Artikelnummern gefüllt!"
Exit Sub
End If
If lng_letzte_zeile