Hallo,
bin relativ neu in der Materie, daher verzeiht mir Anfängerfehler oder ggf. dumme Fragen :-)
Ich möchte mit einem Button aus einer Excel Datei A eine andere Excel Datei B öffnen und dann in dieser Datei B ein Makro ausführen, welches jedoch in der Datei A gespeichert ist.
Die Datei B aufrufen klappt schon nur die Textkonvertierung (Daten in Spalten) welche ich gern per Makro machen möchte, klappt noch nicht:
Private Sub CommandButton2_Click()
'**Dateifilter
strFilter = "Excel-Dateien(*.csv*), *.csv*"
'**Vorbelgung Pfad
ChDrive "D"
ChDir "D:\xxxxx\"
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
'** Gewählte Datei öffnen
Set wb = Workbooks.Open(strFileName)
'**Textkonvertierung
Columns("A:A").Select '---->hier erhalte ich einen Fehler!!
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Columns("C:C").Select
Selection.NumberFormat = "0"
End Sub
|