Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA: Zellinhalt als Wer in erste leere Zelle kopieren

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

VBA: Zellinhalt als Wer in erste leere Zelle kopieren
23.08.2024 16: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 18: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 18: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 21: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 21: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 22: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
24.08.2024 00: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 23: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
24.08.2024 00: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 10: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

erste leere ZELLE in Bereich (flexibel)
Dirk

Hallo an alle EXCEL-Spezialisten,
habe mal wieder ein VBA-Problem, das ich nicht gelöst bekomme u. suche ein Makro für den CommandButton "Ziel-2 / Bereich1" aus der UF (s. Blatt 'Quelle'):
Ich habe im Blatt 'Ziel-2' in A4 den Text "Beginn1" u. in A7 "Ende1" - diese sollen sozusagen als...
30.01.2008 18:17:00
Thread-ID: 947019
5 Beiträge
Button soll Zelle prüfen ggfs. Zellbereich leeren
André

Hallo Leute,
vollgendes Problem:
Ich habe einen CommandButton, der folgendes machen soll:
***
Wenn Click, dann prüfe Wert in Zelle D6
wenn Wert = "frei"oder "krank" oder "Url", dann leere Zellen im Bereich D7:D43
wenn Wert= "früh", dann schreibe in Zelle D21:D23 "Mittag...
18.09.2008 16:29:48
Thread-ID: 1010740
9 Beiträge
Mehrere Werte und Formeln übertragen VBA
Dennis
Hallo!
Ich versuche unsere Excel Tabelle zu optimieren. (https://www.herber.de/bbs/user/154995.xlsx)
Und zwar tragen wir hier Werte in Tabelle1 ein und anhand dieser Werte berechnen sich einige andere Sachen.
Früher wurde alles per Hand in eine Zeile eingetragen und dann die Formeln runt...
06.09.2022 12:56:20
Thread-ID: 1897394
2 Beiträge
Letzte leere Zeile in einem Zeilenbereich ermittel
Werner

Hallo,
ich möchte mit VBA einen Text in eine mehrspaltige Zeile übernehmen und zwar in die erste leere verfügbare Zeile. Die Zeilen sind nicht immer in allen Spalten belegt. Das heißt, dass die letzte Zeile auch leere Zellen haben kann.
Mit meinem Code ermittel ich bisher irgendwie nur...
07.05.2019 17:28:15
Thread-ID: 1691333
16 Beiträge
Suchformular stürzt ab :(
Andre
Hi :)
https://www.herber.de/bbs/user/152811.xlsm
alles kappt super - aber wenn die Spalte H der ID 2 länger ist dann kommt es zur folgendem Fehler:
Der Text ist zu lange in der Spalte H - (sind ca 4500 Zeichen)
Ist es zu viel beim Einlesen in die Listbox in der Userform1
Wie ka...
03.05.2022 10:39:18
Thread-ID: 1881974
6 Beiträge
Nummerierung
Ramadani
Hallo zusammen
Ich hab da ein Problem bei dem ich leider nicht mehr weiter komme und auch nichts passendes im Internet finde.
Und zwar geht es um folgendes:
Ich habe eine Liste wo fortlaufend neue Daten aufgenommen werden. Hierfür habe ich eine UserForm erstellt, um die benötigten Daten...
25.04.2022 23:17:47
Thread-ID: 1880914
5 Beiträge
Zweite Leere Zeile löschen
Benji

Hallo zusammen,
wie man eine leere Zeile löscht, ist mir bewusst. Sub LeereZeilenLoeschen() Dim i As Long Application.ScreenUpdating = False For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete...
30.07.2015 13:29:05
Thread-ID: 1439353
3 Beiträge
Zweite Leere Zeile löschen
Benji

Hallo zusammen,
wie man eine leere Zeile löscht, ist mir bewusst. Sub LeereZeilenLoeschen() Dim i As Long Application.ScreenUpdating = False For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete...
30.07.2015 15:09:49
Thread-ID: 1439403
2 Beiträge
Zweite Leere Zeile löschen
Benji

Hallo zusammen,
wie man eine leere Zeile löscht, ist mir bewusst. Sub LeereZeilenLoeschen() Dim i As Long Application.ScreenUpdating = False For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete...
31.07.2015 08:59:11
Thread-ID: 1439548
2 Beiträge
Zweite Leere Zeile löschen
Benji

Hallo zusammen,
wie man eine leere Zeile löscht, ist mir bewusst. Sub LeereZeilenLoeschen() Dim i As Long Application.ScreenUpdating = False For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete...
31.07.2015 08:59:29
Thread-ID: 1439549
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum