Bei Klick hochzählen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo werner,
ja, ich habe einen Button. Bei Klick soll ein Tier hinzugefügt werden, das klappt auch bloß die Beschriftung ist noch falsch. Je Klick soll hochgezählt werden, Tier 2, Tier 3 etc...
Userbild

der Button" add Tier " führt den Code aus :

Private Sub AddTier_Click()
Dim anzahlTiers As Long
Dim ZaehlerTier As Integer
Dim letzteSpalte As Long
Dim letzteZeile As Long
letzteZeile = Worksheets("Hilfstabelle").Range("A1048576").End(xlUp).Row + 1
Worksheets("Hilfstabelle").Range("B9").Value = Range("B9").Value + 1
ZaehlerTier = Worksheets("Hilfstabelle").Range("B9").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 " & Worksheets("Hilfstabelle").Range("B9").Value
End With
Worksheets("Hilfstabelle").Cells(letzteZeile, 1) = "Tier" & ZaehlerTier
End Sub

Private Sub AddTier_Click() Dim anzahlTiers As Long Dim ZaehlerTier As Integer Dim letzteSpalte As Long Dim letzteZeile As Long letzteZeile = Worksheets("Hilfstabelle").Range("A1048576").End(xlUp).Row + 1 Worksheets("Hilfstabelle").Range("B9").Value = Worksheets("Hilfstabelle").Range("B9").Value Worksheets("Hilfstabelle").Range("B9").Value = Worksheets("Hilfstabelle").Range("B9").Value + 1 ZaehlerTier = Worksheets("Hilfstabelle").Range("B9").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 " & Worksheets("Hilfstabelle").Range("B9").Value End With Worksheets("Hilfstabelle").Cells(letzteZeile, 1) = "Tier" & ZaehlerTier End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread