|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Laufzeitfehler 424 Objekt erforderlich |
03.08.2020 10:26:09 |
GeGe |
|
|
|
03.08.2020 11:19:53 |
Gast94295 |
|
|
|
03.08.2020 11:33:42 |
Mase |
|
|
|
03.08.2020 12:01:54 |
Gast44901 |
|
|
|
03.08.2020 12:36:41 |
Mase |
|
|
|
03.08.2020 13:02:53 |
GeGe |
|
|
|
03.08.2020 11:29:37 |
Mase |
|
|
|
03.08.2020 12:05:40 |
Gast21121 |
|
|
|
03.08.2020 12:41:33 |
Mase |
|
|
|
03.08.2020 12:43:59 |
Mase |
|
|
Von:
GeGe |
Datum:
03.08.2020 10:26:09 |
Views:
1085 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler 424 Objekt erforderlich |
|
Ich habe 2 Excel Datein. Ich möchte von einer in die andere Daten kopieren.
Den Command Workbook(Pfad) kann ich nicht benutzen, ich muss also irgendwie mit GetObject klar kommen
Ich habe leider erst letzte Woche mit VBA angefangen und bin deswegen für jede Hilfe und Kritik dankbar.
Folgende Code:
'Neue Mitarbeiter Erfassen, es werden Name, (Arbeits-)Bereich und (Einstellungs-)Datum gelesen,
'dann in der Exceldatei Neue Mitarbeiter Ausscheidende Mitarbeiter eingetragen
Sub NMErfassung()
Dim SrcBook As Workbook
Dim SrcSheet As Worksheet
Dim DestBook As Workbook
Dim DestSheet As Worksheet
'Pfade
Set SrcBook = GetObject(Pfad1\Data1.xlsm)
Set SrcSheet = SrcBook.Worksheets("Tabelle1")
Set DestBook = GetObject("Pfad2\Data2.xlsx")
Set DestSheet = DestBook.Worksheets("Tabelle1")
'Mitarbeiter Infos aus MacroSheet kopieren
Windows(Data1.xlsm).Visible = True
SrcBook.SrcSheet.Range("G15:G17").Select
Selection.Copy
Windows(Data1.xlsm).Visible = False
'MA Infos in NM einfügen
Windows("Data2.xlsm").Visible = True
DestBook.DestSheet.Cells(Rows.Count, B).End(xlUp).Row.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Windows("Data2.xlsm").Visible = False
End Sub
VG
GeGe
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Laufzeitfehler 424 Objekt erforderlich |
03.08.2020 10:26:09 |
GeGe |
|
|
|
03.08.2020 11:19:53 |
Gast94295 |
|
|
|
03.08.2020 11:33:42 |
Mase |
|
|
|
03.08.2020 12:01:54 |
Gast44901 |
|
|
|
03.08.2020 12:36:41 |
Mase |
|
|
|
03.08.2020 13:02:53 |
GeGe |
|
|
|
03.08.2020 11:29:37 |
Mase |
|
|
|
03.08.2020 12:05:40 |
Gast21121 |
|
|
|
03.08.2020 12:41:33 |
Mase |
|
|
|
03.08.2020 12:43:59 |
Mase |
|
|