Ich brauch bitte eure Hilfe
Ich habe eine Arbeitsmappe die heißt z. B Mappe1.
In dieser Mappe öffnet sich eine UserForm.
Jetzt möchte ich folgendes:
wenn ich in dieser UserForm in TextBox1 einen Wert eingebe, so soll folgendes beim Drücken geschehen:
Es soll die Arbeitsmappe "Mappe2.xls" geöffnet werden und der Eintrag aus aus der Textbox soll übernommen werden.
Ich hab schon mal angefangen. Die Mappe öffnet sich zwar, aber es folgt kein Eintrag.
Könnt ihr mir bitte weiterhelfen=
Gruß
Thomas
Private Sub CommandButton1_Click()
Dim Eingabe As Long ' Variable _
deklarieren
Const LW = "C:\"
Const Pfad = "C:\Dateien"
ChDrive LW
ChDir Pfad
On Error GoTo Fehler
Workbooks.Open Filename:="Mappe1.xls", UpdateLinks:=0
Exit Sub
Fehler:
MsgBox "Die angegebene Arbeitsmappe konnte nicht gefunden werden"
If TextBox1.Value "" Then ' Abfrage ob TexboxInhalt _
hat (wenn nich leer, wird der Codeausgeführt)
Eingabe = Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row + 1 ' erstefreieZelle n _
Spalte b ermitteln
If Eingabe > 65536 Then Exit Sub ' Fehler bei letzter _
Zelle in Spalte B abfangen
Cells(Eingabe, 2) = TextBox1.Text ' Text aus Textbox in _
Spalte B eintragen
Cells(Eingabe, 1) = Eingabe - 1 ' in Spalte A Nr. _
eintragen ( -1 da in Zeile 2 mit den Eintragungen begonnen wird)
TextBox1.Value = "" ' Textbox wieder leeren
TextBox2 = Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp) 'Anzeige des letzten _
Eintrags in TextBox2
End If
End Sub