Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon kurt32 vom 26.01.2019, 14:41 Options
Mappei öffnen und wieder schliessen VBA
Hallo,
ich möchte über VBA eine andere Tabelle öffnen und dort Daten ein fügen und diese wieder schliessen und speichern.Ich habe es so versucht aber irgent wo hängt es:
Private Sub CommandButton1_Click()
Dim Zeile As Double
Workbooks.Open ("C:/2007.xls"), Password:="rucker"
Zeile = Workbooks("2007").Sheets("TEST"). _
Range("A65533").End(xlUp).Offset(1, 0).Row
Workbooks("2007").Sheets("TEST").Cells(Zeile, 1).Value = Cells(2, 1)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 2).Value = Cells(2, 4)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 3).Value = Cells(2, 5)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 8).Value = Format(Now - 1, "dd.mm.yyyy")
Range("A2:L2").ClearContents
Workbooks("2007.xls").Close savechanges:=False
Auftrag1.Hide
End Sub
Danke schon mal
Kurt
ich möchte über VBA eine andere Tabelle öffnen und dort Daten ein fügen und diese wieder schliessen und speichern.Ich habe es so versucht aber irgent wo hängt es:
Private Sub CommandButton1_Click()
Dim Zeile As Double
Workbooks.Open ("C:/2007.xls"), Password:="rucker"
Zeile = Workbooks("2007").Sheets("TEST"). _
Range("A65533").End(xlUp).Offset(1, 0).Row
Workbooks("2007").Sheets("TEST").Cells(Zeile, 1).Value = Cells(2, 1)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 2).Value = Cells(2, 4)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 3).Value = Cells(2, 5)
Workbooks("2007").Sheets("TEST").Cells(Zeile, 8).Value = Format(Now - 1, "dd.mm.yyyy")
Range("A2:L2").ClearContents
Workbooks("2007.xls").Close savechanges:=False
Auftrag1.Hide
End Sub
Danke schon mal
Kurt
Antwort 1 von Beverly vom 26.01.2019, 15:43 Options
Hi Kurt,
wenn eine Arbeitsmappe geöffnet wird, ist sie automatisch die aktive, und mit = Cells(2, 1) greifst du auf die aktive Mappe/Tabelle zu. Schreibe mal anstelle dessen = ThisWorkbook.Sheets("TEST").Cells(2, 1), dann sollte es eigentlich funktionieren (wenn die Tabelle in der Mappe mit dem Code auch "TEST" heißt. Andernfalls anpassen). Wenn sich Range("A2:L2").ClearContents ebenfalls auf die Ausgangsmappe bezieht, dann müsstest du den Teil ebenso ergänzen.
Noch einen Tipp: Zeile kannst du als Long definieren, das reicht auch bei Excel 2007 noch aus.
Bis später,
Karin
wenn eine Arbeitsmappe geöffnet wird, ist sie automatisch die aktive, und mit = Cells(2, 1) greifst du auf die aktive Mappe/Tabelle zu. Schreibe mal anstelle dessen = ThisWorkbook.Sheets("TEST").Cells(2, 1), dann sollte es eigentlich funktionieren (wenn die Tabelle in der Mappe mit dem Code auch "TEST" heißt. Andernfalls anpassen). Wenn sich Range("A2:L2").ClearContents ebenfalls auf die Ausgangsmappe bezieht, dann müsstest du den Teil ebenso ergänzen.
Noch einen Tipp: Zeile kannst du als Long definieren, das reicht auch bei Excel 2007 noch aus.
Bis später,
Karin
Antwort 2 von Kurt32 vom 30.01.2019, 08:24 Options
Danke klappt
Kurt
Kurt
Ähnliche Themen
VBA Active Power PointDatei schliessen
Meera1 06.03.2007 - 86 Hits -
Excel VBA - Wie kann ich in mehrere Bilddateien öffnen und drucken
brumm_49 08.08.2007 - 97 Hits - 3 Antworten
VBA-Editor öffnen und schließen
maxim66 14.03.2008 - 98 Hits - 2 Antworten
Word VBA - Schliessen ohne speichern
Timon 19.04.2008 - 61 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
