Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren
10.12.2019 15:29:24
Dante
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

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren
10.12.2019 15:43:39
SF
Hola,
verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.
Gruß,
steve1da
AW: VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren
10.12.2019 15:47:01
Dante
Hallo Steve,
sorry, weiß nicht wirklich was du meinst :(.
Bin neu in diesem Forum.
Danke,
Daniel
AW: VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren
10.12.2019 15:50:58
SF
Hola,
einen Link hier zur Frage im anderen Forum und umgekehrt.
Gruß,
steve1da
AW: VBA-letzte Zeile ansprechen,Zellen verbinden, einfärben und nummerieren
10.12.2019 17:01:41
JoWE
Hallo,
"böse böse böse" - wie konntest Du Deine Frage nur in mehr als einem Forum stellen?
:-) :-)
aber so geht's vllt.:
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

Gruß
Jochen
Anzeige
AW: kleine Korrektur
10.12.2019 17:26:41
JoWE

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

AW: kleine Korrektur
11.12.2019 07:03:17
Dante
Guten Morgen zusammen,
ja, Schande auf mein Haupt.
@ Jochen: Vielen Dank für die Lösung.
Ich will Euch hier aber nun die Lösung aus dem anderen Forum von tscharl vorenthalten.
Diese ist etwas länger und wohl "umständlicher", aber für mich VBA-Pfeife etwas nachvollziehbarer ;)!
Hier der Link zu dem Eintrag:
http://www.vba-forum.de/Forum/View.aspx?ziel=55468-VBA-letzte_Zeile_ansprechen,verbinden,_einfärben_und_nummerieren
Vielen Dank nochmal!
Gruß
Daniel
Anzeige

389 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige