eine Frage:
Ich möchte Daten aus einer Excel Tabelle importieren. Nun soll aber über eine Inputbox das Tabellenblatt angegeben werden. Folgendes exisistiert schon aber funktioniert noch nicht:
f = Application.InputBox("Bitte angeben!", Type:=1)
If f 0 Then
...... hier kommt die Importgeschichte, aber es geht eher ums nachfolgende
, Destination:=Range("N12"))
.CommandType = xlCmdTable
.CommandText = Array("f")
.Name = "Mappe2_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "H:\Mappe2.xls"
.Refresh BackgroundQuery:=False
End With
Else
End If
Nun möchte ich , dass die Zeile mit dem Array mein f ausliest und benutzt, aber es geht nicht. Was mache ich falsch?
Vielen Dank im Voraus
artur