Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: aktive Command Button klappt nicht

aktive Command Button klappt nicht
Jürgen
Hallo hab da ein kleines Problem
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: aktive Command Button klappt nicht
30.01.2012 18:18:11
Hajo_Zi
Hallo Jürgen,
Duu solltest auf Select usw. verzichten, ich glaube das geht nicht.

AW: aktive Command Button klappt nicht
30.01.2012 19:23:12
Jürgen
ja das wars - DANKESCHÖN!!!
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige