ich wollte anstelle eines Macros ein Commandbutton (Steuerelemente) verwenden.
Wenn ich beim Commandbutton exact das gleiche eintrage wie beim Makro bekomme ich immer einen Laufzeit Fehler 75 Fehler beim Zugriff auf Pfad /Datei.
Hier mein Eintag im Commandbutton gleich Macro bis auf erste Zeile natürlich!
Private Sub CommandButton1_Click()
Sheets("Grunddaten").Select
P = Range("J5") ***Hier steht das Laufwerksverzeichnis und der Dateiname
Sheets("intern").Select
X = Range("A1")
Sheets("Eingabe").Select
Application.ScreenUpdating = False
Dim Zei As Long, strZeilen As String
With Worksheets("Berechnung")
For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(Zei, 1).Value "" Then
strZeilen = strZeilen & "10000,1,1,1;24,a;51,1;10," & .Cells(Zei, 1).Value & vbCrLf
strZeilen = strZeilen & X & vbCrLf & vbCrLf
End If
Next Zei
End With
Close
Open P For Output As #1 ***hier erscheint immer eine Fehlermeldung und wenn man darüber fä _
hrt ist P= leer
Print #1, Left(strZeilen, Len(strZeilen) - 4)
Close #1
End Sub
Wo mache ich einen denkfehler bzw. was habe ich in meinem Code falsch.
Wie gesagt führe ich obigen Code als Makro aus klappt alles perfekt!
Danke für ne Hilfe