Guten Tag, ich bin ein kompletter Anfänger auf dem Gebiet VBA, aber habe einige Kenntnisse in C++..
Nun habe ich folgendes Problem:
Ich benötige 2 if-Bedingungen:
- die erste Bedingung prüft, ob die Datei vorhanden ist (wenn ich nur diese Bedingung nutze, funktioniert alles)
- die zweite Bedingung prüft, ob ein Button angewählt wurde (mit der Variable VAWauswahl)
Nehme ich beide Bedingungen, so kommt die Meldung "Laufzeitfehler 13, Typen unverträglich"..
Ich vermute, dass der Fehler mit dem Button zu tun hat.
Vielen Dank im Voraus!
hier mein Code (der Pfad wurde mit "PFAD" gekennzeichnet):
Dim VAWauswahl As String
Private Sub OptionButton1_Click()
VAWauswahl = 1
Exit Sub
End Sub
Sub Festbremsenkpr()
Dim Masterdatei As Workbook
Dim VAW_Festbremsen As Workbook
Dim Auswahl As Worksheet
Dim Anfahrten_R As Worksheet
If Dir("PFAD.xlsx") <> "" And VAWauswahl = 1 Then
Workbooks.Open Filename:="PFAD.xlsx"
Set VAW_Festbremsen = Workbooks("VAW_Festbremsen.xlsx")
Set Masterdatei = ThisWorkbook 'Zielworkbook
Set Anfahrten_R = VAW_Festbremsen.Worksheets("Anfahrten_R")
Set Auswahl = Masterdatei.Worksheets("Auswahl")
Anfahrten_R.Copy after:=Auswahl
ActiveWorkbook.Save
Workbooks("VAW_Festbremsen.xlsx").Close
End If
End Sub
|