Hallo!
Also erstmals ich bin ein totaler Anfänger was VBA angeht aber ich brauch das halt leider
Mein Problem ist, dass ich ein Script schreiben soll welches wenn man auf einen Button klickt einen FileDialog öffnet eine andere Exceldatei auswählen kann und von der Daten eines bestimmten Arbeitsblattes eingefügt werden. Das mit dem FileDialog hab ich schon nur hab ich Probleme beim Auslesen von den Zeilen da wenn ich die Value-Eigenschaft verwende keine Werte drinnen stehen!
Kann mir da jemand helfen?
Der Code schaut so aus aber nicht lachen:
Set fdlg = Application.FileDialog(msoFileDialogOpen)
fdlg.Filters.Add "Excel Datei (*.XLS)", "*.XLS"
fdlg.FilterIndex = 1
fdlg.Show
Set myWrkbook = Workbooks.Open(fdlg.SelectedItems.Item(1))
For i = 6 To 10
myWrkbook.Activate
Sheets("Meldungen").Select
test = Cells(i, 3).Text
MsgBox test
If Cells(i, 2).Value <> "" Then
Windows("Import_M4_IEC104.xls").Activate
Worksheets("Meldungen_M4Input").Select
Cells(i, 2).Value = test
End If
Next i
Also erstmals ich bin ein totaler Anfänger was VBA angeht aber ich brauch das halt leider
Mein Problem ist, dass ich ein Script schreiben soll welches wenn man auf einen Button klickt einen FileDialog öffnet eine andere Exceldatei auswählen kann und von der Daten eines bestimmten Arbeitsblattes eingefügt werden. Das mit dem FileDialog hab ich schon nur hab ich Probleme beim Auslesen von den Zeilen da wenn ich die Value-Eigenschaft verwende keine Werte drinnen stehen!
Kann mir da jemand helfen?
Der Code schaut so aus aber nicht lachen:
Set fdlg = Application.FileDialog(msoFileDialogOpen)
fdlg.Filters.Add "Excel Datei (*.XLS)", "*.XLS"
fdlg.FilterIndex = 1
fdlg.Show
Set myWrkbook = Workbooks.Open(fdlg.SelectedItems.Item(1))
For i = 6 To 10
myWrkbook.Activate
Sheets("Meldungen").Select
test = Cells(i, 3).Text
MsgBox test
If Cells(i, 2).Value <> "" Then
Windows("Import_M4_IEC104.xls").Activate
Worksheets("Meldungen_M4Input").Select
Cells(i, 2).Value = test
End If
Next i
