Ich hab ein Problem mit dem Code. Ich krieg es nicht hin das Datei1Name usw. im bei BtnOK_Click() verfügbar ist. wie bekomm ich das hin. Ich bastel mir gerade ine Userform.
Private Sub TextBox1_Enter()
Dim Dateiname As String, Datei1Name As String, Datei1Pfad As String
Dateiname = Application.GetOpenFilename
If Dateiname = "Falsch" Then
MsgBox "Es wurde abgebrochen"
Else
Datei1Pfad = Dateiname & Chr(10) & Chr(10) & "ohne Pfad: "
Datei1Name = AusgabeText & Mid$(Dateiname, InStrRev(Dateiname, "\") + 1)
End If
End Sub
Private Sub TextBox2_Enter()
Dim Dateiname As String, Datei2Name As String, Datei2Pfad As String
Dateiname = Application.GetOpenFilename
If Dateiname = "Falsch" Then
MsgBox "Es wurde abgebrochen"
Else
Datei2Pfad = "mit Pfad: " & Dateiname & Chr(10) & Chr(10) & "ohne Pfad: "
Datei2Name = AusgabeText & Mid$(Dateiname, InStrRev(Dateiname, "\") + 1)
End If
End Sub
Public Sub BtnOK_Click()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim str1, str2 As String
Set WS1 = Workbooks(Datei1Name).Worksheets(1)
Set WS2 = Workbooks(Datei2Name).Worksheets(1)
End sub
was hier hinter passiert ist einmal unwichtig. Nur irgendwie verwirft er ja die Variablen wenn ich die Textbox verlasse. Ich weiss nicth wie ich darauf zugreifen kann.
mfg Tom