In meiner Datenbank sollen personenbezogene Daten über eine VBA Eingabemaske erfasst und jeweils auf einer leeren Zeile in einem separaten Blatt im selben Exceldokument ausgewiesen werden. Mein Ziel ist es, das 1 Blatt als Startseite mit verschiedenen Buttons einzurichten (z.B. Stammdaten erfassen, Rechnungen erstellen, Statistische Daten ausrechnen usw).
Mein erster Button auf der Startseite lautet "KlientInnen-Fragebogen Erfassen" Dieser Button öffnet mir dann den Eingabebildschirm:
Sub CallMe()
KlientInnen_Fragebogen.Show
End Sub
Darin erfasse ich meine Daten und drücke dann auf den Button "Ausführen", dahinter läuft dann _
folgender Code:
Private Sub CommandButton1_Eingabe_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
.... End Sub
Als Active Sheet wird mein Blatt "Auswahlmenü" erkannt und überschreibt mir dann diese Seite mit meinen Daten. Geschrieben werden sollten die Daten aber unter "Adressstamdaten".
Ich habe schon etliches aus diesem Forum probiert, aber bisher hat nichts geklappt.
Ich bin sicher, dass es für ein Profi ein Kleines ist, mir weiter zu helfen.
Besten Dank
Stéphane