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 sas vom 28.01.2019, 16:09 Options
Werte in nächste leer Zeile einer zweiten Datei übertragen
Hallo zusammen,
ich habe mal wieder ein Makro-Problem.
Ich habe zwei Dateien (Tagedaten.xls und Basisdaten.xls).
Die Datei Tagesdaten.xls beinhaltet nun eine Datenzeile von A2 bis W2 (werden mittels Formeln berechnet). Diese sollen nun in die Datei Basisdaten.xls als Werte übertragen werden.
Die Daten in Tagesdaten.xls werden jeden Tag wieder gelöscht, so dass diese in Basisdaten.xls gespeichert werden müssen. Dabei muss immer die nächste leere Zeile verwendet werden, um Überschreibungen zu vermeiden.
Bsp.:
Tagesdaten.xls Basisdaten.xls
A2= 01.01.2007; B2= 13;C2 =2 -> A2 = 01.01.2007;B2= 13;C2 = 2
A2= 02.01.2007; B2=20 ;C2 =4 -> A3 = 02.01.2007;B3 = 20;C3 = 4
A2= 03.01.2007;B2=17;C2 = 9 -> A4 = 03.01.2007;B4 = 17;C4 = 9
:
A = 31.12.2007;B2=34 C2=8 ->A257=31.12.2007; B2 =34;C257= 8
Bisher kopiere ich die Datenzeile aus Tagesdaten.xls und füge sie als Werte in die nächste leere Zeile von Basisdaten.xls ein.
Da dies immer wieder derselbe Vorgang ist wäre eine VBA-Lösung super. Danke
sas
ich habe mal wieder ein Makro-Problem.
Ich habe zwei Dateien (Tagedaten.xls und Basisdaten.xls).
Die Datei Tagesdaten.xls beinhaltet nun eine Datenzeile von A2 bis W2 (werden mittels Formeln berechnet). Diese sollen nun in die Datei Basisdaten.xls als Werte übertragen werden.
Die Daten in Tagesdaten.xls werden jeden Tag wieder gelöscht, so dass diese in Basisdaten.xls gespeichert werden müssen. Dabei muss immer die nächste leere Zeile verwendet werden, um Überschreibungen zu vermeiden.
Bsp.:
Tagesdaten.xls Basisdaten.xls
A2= 01.01.2007; B2= 13;C2 =2 -> A2 = 01.01.2007;B2= 13;C2 = 2
A2= 02.01.2007; B2=20 ;C2 =4 -> A3 = 02.01.2007;B3 = 20;C3 = 4
A2= 03.01.2007;B2=17;C2 = 9 -> A4 = 03.01.2007;B4 = 17;C4 = 9
:
A = 31.12.2007;B2=34 C2=8 ->A257=31.12.2007; B2 =34;C257= 8
Bisher kopiere ich die Datenzeile aus Tagesdaten.xls und füge sie als Werte in die nächste leere Zeile von Basisdaten.xls ein.
Da dies immer wieder derselbe Vorgang ist wäre eine VBA-Lösung super. Danke
sas
Antwort 1 von Beverly vom 28.01.2019, 16:31 Options
Hi,
versuche es mit diesem Code
Code steht in Arbeitsmappe Tagesdaten.xls.
Bis später,
Karin
versuche es mit diesem Code
Sub daten_übertragen()
Dim wbMappe As Workbook
Dim wsTabelle As Worksheet
Dim loLetzte As Long
Set wbMappe = Workbooks("Basisdaten.xls")
Set wsTabelle = ThisWorkbook.Worksheets("Tabelle1")
With wbMappe.Worksheets("Tabelle1")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
.Cells(loLetzte + 1, 1) = wsTabelle.Cells(2, 1)
.Cells(loLetzte + 1, 2) = wsTabelle.Cells(2, 2)
.Cells(loLetzte + 1, 3) = wsTabelle.Cells(2, 3)
End With
End Sub
Code steht in Arbeitsmappe Tagesdaten.xls.
Bis später,
Karin
Ähnliche Themen
Felder in excel?
unihauke 23.03.2007 - 78 Hits - 10 Antworten
Excel Summewenn-Funktion mit Platzhalter
antama 03.05.2007 - 131 Hits - 5 Antworten
Text in Zelle auf erster Zeile
WithPanther 15.05.2007 - 85 Hits - 2 Antworten
Daten in Excel sortieren
sebflu 26.11.2007 - 128 Hits - 6 Antworten
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
