Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste Leere Zeile finden und Datensatz eintragen

Forumthread: Erste Leere Zeile finden und Datensatz eintragen

Erste Leere Zeile finden und Datensatz eintragen
16.01.2008 20:22:29
chris
Hallo zusammen,
ich bin fast am verzweifeln!
ich möchte gerne Daten aus einer Excel-Mappe als Datensatz in eine andere Excelmappe exportieren. Wie bekomme ich Excel dazu, dass mir der Datensatz in die jeweils nächste Spalte geschrieben wird.
Habe folgenden Code ausprobiert.
Die Daten werden optimal in die externe Mappe übertragen und gespeichert. Allerdings wenn ich einen neuen Datensatz übertragen möchte wird der alte bzw. erste überschrieben?! 

Private Sub Daten_exportieren()
Workbooks.Open("C:\Documents and Settings\CCRUC\Desktop\Controlling Sheets\Produktionshistorie. _
xls").Worksheets("Tabelle1").Activate
Dim lngNeueZeile As Long
lngNeueZeile = Range("A65536").End(xlUp).Row + 1
ActiveSheet.Cells(lngNeueZeile, 1).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G5").Value
ActiveSheet.Cells(lngNeueZeile, 2).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G3").Value
ActiveSheet.Cells(lngNeueZeile, 3).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G7").Value
ActiveSheet.Cells(lngNeueZeile, 4).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("U7").Value
ActiveSheet.Cells(lngNeueZeile, 5).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G9").Value
ActiveSheet.Cells(lngNeueZeile, .Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G29").Value
ActiveSheet.Cells(lngNeueZeile, 9).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G27").Value
ActiveSheet.Cells(lngNeueZeile, 10).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G31").Value
ActiveSheet.Cells(lngNeueZeile, 11).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G33").Value
ActiveSheet.Cells(lngNeueZeile, 12).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G35").Value
ActiveSheet.Cells(lngNeueZeile, 12).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("P27").Value
ActiveSheet.Cells(lngNeueZeile, 13).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("P29").Value
ActiveSheet.Cells(lngNeueZeile, 14).Value = Workbooks("Zeiterfassung Stand 09-01-08.xlt"). _
Worksheets("Eingabemaske").Range("G31").Value
Workbooks("Produktionshistorie.xls").Save
Workbooks("Produktionshistorie.xls").Close
Workbooks("Zeiterfassung Stand 09-01-08.xlt").Activate
End Sub


Bin dankbar für jede Hilfe

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste Leere Zeile finden und Datensatz eintragen
16.01.2008 21:13:00
Peter
Hallo chris,
kann es sein, dass du die lngNeueZeile im falschen Tabellenblatt ermittelst?
Versuch es einmal so: lngNeueZeile = ActiveSheet.Range("A65536").End(xlUp).Row + 1
denn ActiveSheet ist ja das empfangende Blatt.
Gruß Peter

AW: Erste Leere Zeile finden und Datensatz eintragen
17.01.2008 08:49:24
chris
Vielen dank Peter,
es hat funktioniert!!!!!!!!!!
Lg
Chris
ich müßte Dir ein Denkmal setzen(Grins)! Es hat funktioniert!!!
Lg
Christian

Anzeige
AW: Erste Leere Zeile finden und Datensatz eintragen
16.01.2008 22:06:28
Gerd
Hallo Chris,
guck halt mal, wo lngNeueZeile ist.

Private Sub Daten_exportieren()
Dim EMaske As Worksheet, lngNeueZeile As Long, vntEMaske As Variant
Workbooks.Open ("C:\Documents and Settings\CCRUC\Desktop\Controlling Sheets\Produktionshistorie. _
xls ")
Set EMaske = Workbooks("Zeiterfassung Stand 09-01-08.xlt").Worksheets("Eingabemaske")
vntEMaske = Array("G5", "G3", "G7", "U7", "G9", "G29", "G27", "G31", "G33", "G33", "G35", "P27", _
"P29", "G31")
With ActiveWorkbook.Worksheets("Tabelle1")
lngNeueZeile = .Range("A65536").End(xlUp).Row + 1
ActiveWorkbook.Worksheets("Tabelle1").Cells(lngNeueZeile, 1).Select
Stop
For col = 1 To 5
.Cells(lngNeueZeile, col).Value = EMaske.Range(vntEMaske(col - 1)).Value
Next
For col = 8 To 14
.Cells(lngNeueZeile, col).Value = EMaske.Range(vntEMaske(col - 3)).Value
Next
End With
Workbooks("Zeiterfassung Stand 09-01-08.xlt").Activate
Workbooks("Produktionshistorie.xls").Close True
End Sub


Gruß Gerd

Anzeige
;

Forumthreads zu verwandten Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Kopieren in erste leere Zelle in aktiver Spalte
Robert

Hallo,
hoffe ihr könnt mir weiterhelfen, denn ich trete voll auf dem Schlauch...
Mein Problem ist, dass ich von Tabelle2 alle gefüllten Zellen der Spalte B ab "B4" kopieren müsste -
und da beginnt mein Problem - es sollte in die aktive Spalte (wird vor Makrostart aktiviert) der Tab...
02.11.2008 08:06:00
Thread-ID: 1021125
3 Beiträge
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Leere Zeile finden
chrissey

Hallo Leute,
hab ne (zumindest für mich) knifflige Frage:
Ich habe in einem Tabellenblatt namens Artikel anlegen in Zelle 2,2 einen Wert.
Diesen möchte ich nun auf eine Tabellenblatt namens Verbräuche übertragen.
Soweit so gut, aber der Wert soll sich unter eine Reihe von Werten...
27.04.2009 13:55:18
Thread-ID: 1071356
4 Beiträge
erste gefüllte Zelle finden
maart

Hallo,
ich möchte mittels Excel (kein VBA) in einem Bereich die erste gefüllte Zelle finden. Dies soll wie folgend umgesetzt werden:
Bereich A1:E1 beinhaltet eine gefüllte Zelle, bzw. es soll von A1 beginnend die erste gefüllte Zelle gefunden werden. Diese Zelle möchte ich in einer weit...
05.05.2009 19:18:34
Thread-ID: 1073175
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige