Bei Klick hochzählen
08.12.2017 07:50:59
Nati
stehe komplette auf dem Schlauch und brauche eure Hilfe.
Bei Code-Ausführung soll in Zeile 2 hochgezählt werden: (gelb markiert)
mein Code, zeigt bisher nur "Tier" also es soll dann hoch gezählt werden.. Tier 2, Tier 3 etc (je nach dem wie oft Code ausfegührt wird)
Private Sub AddTier_Click()
Dim ZaehlerTier As Integer
Dim letzteSpalte As Long
Worksheets("Hilfstabelle").Range("B9").Value = Range("B9").Value + 1
ZaehlerTier = Worksheets("Hilfstabelle").Range("A1").Value
With Tabelle1
'letzte Spalte bestimmen und gibt an, nach wieviel Zellen die nächste Tabelle anfangen soll
letzteSpalte = .Cells(2, Columns.Count).End(xlToLeft).Column + 5
'Kopiert den Bereich der hier bestimmt wird
.Range("S2:U3").Copy
.Cells(2, letzteSpalte).PasteSpecial
' "Tier"- Text erscheint in Zeile 2 und variabler Spalte
.Cells(2, letzteSpalte) = "Tier" '--> HIER FEHLT DER CODE
End With
End Sub
Gruß,Nati