Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Zellinhalt als Wer in erste leere Zelle kopieren

VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 14:17:14
Fritz_W
Hallo Forumsbesucher,

erneut benoetige ich eure Hilfe. Ich moechte den jeweiligen Inhalt der Zelle E1 kopieren und als Wert in die erste leere Zelle der Spalte L einfuegen.
Fuer eure Unterstuetzung im Voraus besten Dank.

mfg
Fritz
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 16:30:25
ralf_b
cells(rows.count,"L").end(xlup).offset(1).value = [E1]
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 16:53:27
Fritz_W
Hallo Ralf,

vielen Dank für deine Hilfe.
Das Makro funktioniert dem Grunde nach wie gewünscht, mit der Einschränkung, dass die Werte in die Spalte L erst ab Zeile 2 eingefügt werden, selbst wenn L1 leer ist.
Grundsätzlich kann ich aber damit leben.

mfg
Fritz
Anzeige
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 19:30:32
ralf_b
ja das ist so wenn man diesen Fall nicht extra abprüft. Ist aber machbar.
Wenn wir hier jeden möglichen Fall im Code berücksichtigen würden, bliebe nichts zu verbessern für die ambitionierten Hilfesuchenden, die sich selbstverständlich mit VBA befassen um es zu lernen.
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 19:50:03
Fritz_W
Ralf,
Ich will auf jeden Fall auf Deine Nachricht hin noch einmal klarstellen, dass ich für jede Hilfe dankbar bin und auch versuche, dies jedem Helfer gegenüber zu kommunizieren. Wahrscheinlich muss ich akzeptieren, dass einige Experten nicht verstehen, dass Fragesteller über so wenig Kenntnisse verfügen, was bei mir - zumindest was VBA betrifft - halt der Fall ist.
Noch einmal, Danke für deine Hilfe, aber bitte akzeptiere auch Defizite von uns (dankbaren) Fragestellern.

Mfg
Fritz
Anzeige
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 20:46:53
Crazy Tom
moin,

mein Vorschlag

Sub test()

Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "L").End(xlUp).Row + 1
Cells(lngZiel, "L").Value = Range("E1").Value
End Sub


mfg Tom
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 22:05:24
ralf_b
Nun Fritz, man wird nicht besser, wenn man keinen Ansporn hat. Und genau das ist hier auch ein Antrieb in diesen Foren das man den Hilfesuchenden dabei behilflich ist, sich selbst im Thema zu verbessern. Die letzte belegte bzw. die erste freie Zelle ist gefühlt unter den top 10 der angefragten und gegebenen Lösungen. Also ein Leichtes sowas(selbst) zu recherchieren anstatt es sich leicht zu machen und sich die Lösungen liefern zu lassen. Wir Alle haben mal angefangen. Also verstehe ich die Fragesteller. Ich erwarte aber auch das Fragesteller sich gelegentlich die Hinweise auf den fehlenden eigenen Beitrag an der Lösungsfindung gefallen lassen. Dies ist kein Dienstleistungszentrum auch wenn es immer mehr dazu zu werden scheint.

was deine Frage angeht.
Du kannst prüfen ob die mit dem Cod gefundene letzte Zeile die Nummer 1 hat und ob die leer ist. Dann entsprechend die Zeilennummer oder Zellreferenz mittels offset() setzen. Im Normalfall hat man ja eine Überschrift und erst dann die Daten und der besagte Fall ist dann eher ein Sonderfall.
Anzeige
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 21:34:30
Fritz_W
Moin Tom
vielen Dank, für deine Unterstützung.
Der Code leistet exakt das gleiche wie der von Ralf.
Ich selbst kann das natürlich nicht nachvollziehen, aber wie erwähnt kann ich damit leben.

mfg
Fritz
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 22:15:41
Crazy Tom
sorry hatte es anders rum verstanden

das hier wäre ein Weg

Sub test()

Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "L").End(xlUp).Row
If Cells(lngZiel, "L") = "" Then
lngZiel = 1
Else
lngZiel = lngZiel + 1
End If
Cells(lngZiel, "L").Value = Range("E1").Value
End Sub


mfg Tom

PS. ich hoffe ich antworte jetzt auf den richtigen Beitrag
Anzeige
AW: VBA: Zellinhalt als Wer in erste leere Zelle kopieren
24.08.2024 08:45:29
Fritz_W
Hallo Tom,

Perfekt! So beginnt die Auflistung - sofern alle Zellen der Spalte L leer sind - auch in Zelle L1.
Vielen Dank.

mfg
Fritz
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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