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?
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
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