Hallo zusammen,

und zwar stehe ich, als VBA Anfänger, vor einer Frage, welche Ihr mir womöglich aus dem stehgreif beantworten könnt.

Ich möchte per Button neu Zeilen einfügen. Horizontal habe ich verschiedene Reiter/Überschriften. Unter den Reitern/Überschriften möchte ich immer neue Zeilen einfügen oder löschen können.

Jede neu eingefügte Zeile sollte fortlaufend beschriftet sein. Um dem Code zu sagen wo in welchem Range sich der Reiter befindet habe ich ihn so geschrieben, das jeder Reiter eine Andere Beschriftung hat (Reiter 1 - A1, A2, A3, - Reiter 2 - B1, B2, B3 .. und so fortlaufend) .

Jetzt bekomme ich die fortlaufende Nummerierung/Beschriftung leider nicht hin. Ich habe schon versucht eine Variable zu definieren, ohne Erfolg leider. Zusätzlich wäre es gut wenn in den neu eingefügten Spalten die Formeln (der kopierten Spalte) weiter in der neuen Spalte fortläuft.

Ich hoffe ich habe das Problem/ die Probleme einigermaßen verständlich geschildert.

Den Code habe ich hier mal eingefügt, kann mir hier jemand helfen? Danke im Voraus!

Private Sub CommandButton1_Click() 'Test 1 +

Dim z As Long

Dim i As Long

z = 3

i = 1

Do

If Sheets("Tabelle1").Cells(3, z) Like "*B*" Then

Exit Do

End If

z = z + 1

Loop

MsgBox z

Columns(z).Select

  Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

With Cells(6, z)

  .Value = "Ist"

  .VerticalAlignment = xlBottom

  .Orientation = 90

End With

i = i + 1

With i = Cells(3, z).Value

  End With

End Sub