Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

REchnungsnummer

Forumthread: REchnungsnummer

REchnungsnummer
Flo
Hallo,
ich würde gerne in einer Userform einen button integrieren, der mir eine Rechnungsnummer fortlaufend bereitstellt. Die Nummer soll in einem anderen worksheet gespeichert werden
Der Button soll dann immer die letzte nummer dieses Rechnungsnummer-worksheet nehmen und um 1 hochzählen, die neue nummer allerdings direkt wieder unter die letzt in das Rechnungsnummer worksheet schreiben
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: REchnungsnummer
01.09.2011 11:36:28
Henrik
Hallo Flo,
im Prinzip so. Musst du nur noch anpassen, da ich deine Mappe, Namen und Button Nummern und Namen nicht kenne.

Private Sub CommandButton1_Click()
Dim DeinBlatt As Worksheet, DeineSpalte As Integer
Dim letzteZeile As Long, letzteNummer As Long, neueNummer As Long
Set DeinBlatt = ThisWorkbook.Worksheets(3)  ' anpassen
DeineSpalte = 6                         ' da wo Rechnungsnummern sind
With DeinBlatt
letzteZeile = .Cells(Rows.Count, DeineSpalte).End(xlUp).Row
letzteNummer = .Cells(letzteZeile, DeineSpalte).Value
neueNummer = letzteNummer + 1
.Cells(letzteZeile + 1, DeineSpalte).Value = neueNummer
End With
End Sub

Gruß Henrik
Anzeige
AW: REchnungsnummer
01.09.2011 12:03:22
Flo
Hi,
vielen Dank. Klappt wunderbar.
Ich habe es etwas umständlicher gelöst aus einer kombination zweier textfelder und wenn funktionen aber hier ist es sauberer.
Nochmals Dankeschön
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige