Hallo zusammen,
ich stehe vor folgendem Problem.
Ich wähle über ein Makro mehrere Daten aus einer "Eingabemaske" aus und kopiere diese in ein zweites Tabellenblatt "Übersicht". So weit so gut.
Jetzt möchte ich das Makro so erweitern, dass die Daten auch in eine zweite Datei, die nicht im gleichen Verzeichnis liegt, kopiert werden.
Beispielhaft habe ich mal einen Teil des Makros angefügt.
Hoffe mir kann jemand helfen.
Vielen Dank schon mal!!
If Sheets("Eingabemaske").Cells(10, 3).Value > 0 Then
' Zelle mit Kriterium auswählen u. In Übersicht übertragen
Sheets("Eingabemaske").Activate
Sheets("Eingabemaske").Cells(10, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ereignisse FTT").Select
Sheets("Ereignisse FTT").Cells(iDaten + 1, 5).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else
k = MsgBox("Es wurd kein Kriterium ausgewählt!" & Chr(13) & _
"Eingabe ist zwingend erforderlich!", 5 + vbQuestion, "Hinweismeldung")
If k = 2 Or k = 4 Then Exit Sub
End If