VBA: Auftragsnummer in Excel automatisch vergeben

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich stehe mal wieder vor einem Problem…

Und zwar habe ich eine Excel datei mit einem Eingabetabellenblatt nach diesem Muster

Auftragsnummer (0001)
Name
Straße
PLZ
Ort

diese Daten werden von einem anderen Tabellenblatt, in dem das eigentliche Schriftstück hinterlegt ist verwendet.

Nun zu meiner Frage: Ist es möglich das Excel über einen Button automatisch eine neue Nummer vergibt und diese mit dem Namen und diese mit dem Namen und der Anschrift in ein neues Tabellenblatt übergibt? Also eine art kleine Datenbank?

Mfg JWalter

#2

Nun zu meiner Frage: Ist es möglich das Excel über einen
Button automatisch eine neue Nummer vergibt und diese mit dem
Namen und diese mit dem Namen und der Anschrift in ein neues
Tabellenblatt übergibt? Also eine art kleine Datenbank?

Hallo JWalter,

A1: Auftragsnummer (0001)
B1: Name
C1: Straße
D1: PLZ
E1: Ort

Alt+F11, Einfügen—Modul, Code reinkopieren, Vb-Editor schliessen.

Option Explicit

Sub Einfuegen()
Dim wks1 As Worksheet, wks2 As Worksheet, Zei2 As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Zei2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
wks1.Range("A2:E2").Copy Destination:=wks2.Cells(Zei2, 1)
wks1.Rows(2).ClearContents
wks1.Range("A2").NumberFormat = "@"
wks1.Range("A2").Value = Right("0000" & CStr(wks2.Cells(Zei2, 1).Value + 1), 4)
End Sub

Gruß
Reinhard