Sehr geehrte Community,
ich verzweifele mittlerweile an einem kleinen Projekt von mir.
Zunächst werden die Daten in einer Userform eingetragen und durch das bestätigen auf einer Übersichtsseite eingetragen. Soweit so gut!
Nachdem die Daten auf der Überischtsseite überprüft bzw. auch noch ergänzt wurden, soll eine Variable eine Wert zugewiesen werden. Der Wert ist Gleichnamig mit einen Tabellennamen, Hier soll nach bestätigen des Buttons die Daten auf der gleichnamigen Tabelle eingetragen werden und diese auch aktiviert werden.
Ich hatte mir das ganze wie folgt vorgestellt.
Private Sub CommandButton1_Click()
Dim Staionsname as String
Dim last As Integer
' Der Wert in der Zelle "C18" hat den Selben Namen wie die folgenden Tabellen.
Stationsname = Worksheets("Übersichtsblatt").Range("C18").Value
'Eingabe bestätigen und in einer freien Zeile einfügen'
last = Worksheets("Stationsname").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Stationsname").Cells(last, 1).Value = Worksheets("Übersicht").Range("C9").Value
Worksheets("Stationsname").Cells(last, 2).Value = Worksheets("Übersicht").Range("C10").Value
Worksheets("Stationsname").Cells(last, 3).Value = Worksheets("Übersicht").Range("C11").Value
Worksheets("Stationsname").Cells(last, 4).Value = Worksheets("Übersicht").Range("B18").Value
Worksheets("Stationsname").Activate
End Sub
Ich hoffe ihr könnt mir helfen. Ich habe vieles ausprobiert, alles vergeblich...
Danke für die Unterstützung, bleibt gesund.
Mit den besten Grüßen
Lukas