VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren

Hallo Forum,
ich bin ein VBA Beginner, total. Hab zwar schon das ein oder andere gemacht, aber das bestand meist darin in Foren zu stöbern und mir codeschnippsel zusammenzubasteln.
Demnächst muss mal ein VBA Kurs her, das Selbststudium läuft nicht so rund -.-!
Aktuell hätte ich eine Aufgabe bei der ich keinen Schritt vorwärts komme.
Ich hoffe mit Eurer Hilfe hier etwas hin zu bekommen.
Folgendes Szenario:
Ich habe ein Tabellenblatt welches bis Zeile 13 fix gefüllt ist.
Diese Füllung läuft über eine UserForm-Abfrage.
Jetzt möchte ich in Zeile 14 beginnend, über die Betätigung eines CommandButton/Schaltfläche,
Die Zelle A14 ansprechen, diese bis zur Zelle R14 miteinander verbinden, die verbundene Zelle grau einfärben und mit "1" zum starten befüllen.
Bei erneuten anklicken des CommandButtons soll eine Zeile frei gelassen werden, das selbe Prozedere wie oben beschrieben ablaufen und anstelle der "1" die "2" eingetragen werden. Und so weiter und so weiter.
Habe ich hier mit VBA die Möglichkeit dies zu tun (ich bin mir zwar todsicher, bekomme es aber überhaupt nicht auf die Kette) :(.
Nachdem ich nun schon einen vollen Tag daran sitze seid Ihr meine letzte Hoffnung.
Ich hoffe ich konnte Euch mein Problem gut schildern und ihr versteht was ich möchte :)
Ich freue mich auf Eure Hilfe und den Antworten.
Gruß
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub fill() Dim ze As Long ze = Cells(Rows.Count, 1).End(xlUp).Row + 2 If ze = 15 Then ze = 14 Cells(ze, 1) = Cells(ze, 1) + 1 With Range(Cells(ze, 1), Cells(ze, 18)) .Merge .HorizontalAlignment = xlCenter .Font.Bold = True With .Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736 .PatternTintAndShade = 0 End With .Font.Color = -16776961 .Font.TintAndShade = 0 .Font.Bold = False End With End Sub

Sub fill() Dim ze As Long ze = Cells(Rows.Count, 1).End(xlUp).Row + 2 If ze = 15 Then ze = 14 Cells(ze, 1) = 1 End If If Cells(ze, 1) = "" Then Cells(ze, 1) = Cells(ze - 2, 1) + 1 End If With Range(Cells(ze, 1), Cells(ze, 18)) .Merge .HorizontalAlignment = xlCenter .Font.Bold = True With .Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736 .PatternTintAndShade = 0 End With .Font.Color = -16776961 .Font.TintAndShade = 0 .Font.Bold = False End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread