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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auf die erste freie Zelle einer Spalte springen

Forumthread: Auf die erste freie Zelle einer Spalte springen

Auf die erste freie Zelle einer Spalte springen
25.02.2004 09:51:10
andi
Hallo!
In meinem Makro kopiere ich Daten aus einem Tabellenblatt und möchte diese dann in einem anderen Blatt in die erste freie Zelle nach Zeile 3 der Spalte A einfügen. Kann mir jemand helfen.
Schöne Grüsse
andi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:01:41
AndreasS
Hi,
'Erste freie Zelle ermitteln

Sub ErsteFreieA()
Dim s As String
Dim i As Long
With ActiveSheet
i = 3
Do
i = i + 1
s = Cells(i, "A")
If Len(s) = 0 Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535
End With
End Sub

Gruß Andreas
Anzeige
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:08:32
Galenzo
Hallo,
machst du so:
Sheets("Tabelle1").Range("A1:C100").Copy Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp)
mfg
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:15:09
AndreasS
Und was ist mit "nach Zeile 3"?
Gruß Andreas
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:23:13
Galenzo
schreibst irgendwas (z.B. ein leerzeichen) in die ersten 3 zeilen..
Anzeige
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:26:50
andi
ebenfalls danke - Galenzo. ihr seid klasse
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:26:53
AndreasS
Stimmt. In der Kürze liegt die Würze! :-)
Was man von meinem Makro nicht behaupten kann...
Aber es erfüllt auch seinen Zweck...
Gruß Andreas
AW: Auf die erste freie Zelle einer Spalte springen
25.02.2004 10:09:21
andi
Danke Andreas - ist perfekt
Anzeige
Danke für die Rückmeldung :-)
25.02.2004 10:13:21
AndreasS
Gruß Andreas
;

Forumthreads zu verwandten Themen

erste leere Zelle einer Zeile finden.
Marcel

Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel
23.09.2009 14:23:15
Thread-ID: 1104940
3 Beiträge
Erste freie Zeile...
Gegga

Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt

Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02() 'Eintragen zur Vorbereitung für ArchivB Shee...
23.10.2010 12:13:40
Thread-ID: 1183617
7 Beiträge
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 Beiträge
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
letzte Zeile in erste freie Zeile
Michel

Hallo zusammen,
wie kann ich die letzte ausgefüllte Zeile, aber nur den Bereich der Zellen G:Q der Tabelle1 kopieren und in die erste freie (nicht ausgefüllte) Zeile des Zellenbereichs B:L der Tabelle 2 einfügen?
Ich hoffe, dass ich mich für mein Anliegen klar ausgedrückt habe.
Ich...
15.05.2011 11:51:08
Thread-ID: 1214532
28 Beiträge
Werte in TATSÄCHLICH erste freie Zeile trotz Filte
Dietmar

Hallo zusammen,
folgender Code funktioniert ganz gut, hat aber noch Verbesserungspotential.
Die Prozedur ist Teil eines übergeordneten Codes; der Aufruf erfolgt mit Application.Run ...
1.) Wenn Filter gesetzt ist werden keine Daten in die erste freie Zeile eingetragen, weil der Show...
17.01.2012 12:51:12
Thread-ID: 1246531
3 Beiträge
Anzeige
erste freie Zeile
Alex

Hallo Leute,ich möchte eine Datenzeile aus einem Worksheet in ein anderes Worksheet übertragen, dort soll diese an einen Datenbestand angehängt werden, sie soll dort in die erste freie Zeile geschrieben werden.
03.06.2002 15:24:56
Thread-ID: 125555
2 Beiträge
erste freie Zeile in Tabelle zeigen
Gerd

Hallo alle,
folgender code soll die erste freie Zeile im aktiven sheet am Monitor anzeigen, sodass ich nicht laufend ganz nach unten scrollen muss.
++++++++++++++++++++++++++ Private Sub workbook_open() Dim ws As Worksheet Application.ScreenUpdating = False With ws Sheets("Tabelle").Sel...
27.06.2012 10:49:42
Thread-ID: 1269065
4 Beiträge
Anzeige
nächste freie Zeile finden und Inhalte einfügen
Andreas

Guten Morgen zusammen,
ich habe ein VBA Problem mit dem ich leider selbst nicht weiter komme und würde mich über Unterstützung sehr freuen.
Ich möchte zwei Tabellen T1 und T2 miteinander auf auf Artikelnummerbasis in Spalte A als Schlüssel vergleichen.
Excel sollte nun prüfen, ob di...
23.08.2012 09:00:33
Thread-ID: 1276117
3 Beiträge
Erste Leere Zeile finden
Breuer

Hallo,
habe folgendes Problem.
Ich möchte Daten aus einer UserForm in eine Tabelle übernehmen.
Die Tabelle besteht aus 3 Spalten (Name,Vorname,Nr.).
Ausserdem hat die Tabelle die o.g. Überschriften.
Ich habe zwar den Code für die Erste Leere Zeile gefunden, jedoch kommen die...
15.03.2013 08:44:16
Thread-ID: 1304117
20 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Auf die erste freie Zelle einer Spalte springen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und das Arbeitsblatt, in dem Du die erste freie Zelle der Spalte A finden möchtest.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  4. Füge den folgenden Code ein:

    Sub ErsteFreieA()
   Dim s As String
   Dim i As Long
   With ActiveSheet
       i = 3 ' Start ab Zeile 3
       Do
           i = i + 1
           s = Cells(i, "A")
           If Len(s) = 0 Then
               Cells(i, "A").Activate
               Exit Do
           End If
       Loop While i < 65535
   End With
End Sub

  5. Führe das Makro aus, indem Du im VBA-Editor auf F5 drückst oder das Makro über Excel startest.

Häufige Fehler und Lösungen

  • Fehler: Makro findet keine freie Zelle
    Lösung: Stelle sicher, dass die ersten drei Zeilen in Spalte A tatsächlich leer sind. Wenn nicht, füge ein Leerzeichen oder einen Platzhalter ein.

  • Fehler: Makro stoppt unerwartet
    Lösung: Überprüfe, ob Du die Schleife korrekt programmiert hast. Der Code sollte bis zur maximalen Zeile von 65535 laufen.

Alternative Methoden

Eine alternative Methode, um die erste freie Zeile zu finden, ist die Verwendung von Formeln anstelle von VBA:

  1. Verwende die Formel: =VERGLEICH(1;A:A;0), um die erste freie Zeile zu finden.
  2. Kopiere die Daten: Du kannst auch die .End(xlUp) Methode verwenden, um die nächste freie Zeile zu finden, z. B.: 
    Sheets("Tabelle1").Range("A1:C100").Copy Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

Praktische Beispiele

  • Beispiel 1: Einfügen von Daten
    Wenn Du Daten aus einem anderen Blatt in die erste freie Zelle nach Zeile 3 in Spalte A einfügen möchtest, kannst Du das oben genannte Makro verwenden.

  • Beispiel 2: Nutzung in einem größeren VBA-Projekt
    Integriere den Code in eine größere Automatisierung, um Daten regelmäßig zu aktualisieren, ohne manuell nach freien Zellen suchen zu müssen.

Tipps für Profis

  • Verwende Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.

  • Optimiere Deine Schleifen: Anstatt bis zur maximalen Zeile zu iterieren, könntest Du auch die UsedRange-Eigenschaft verwenden, um die Leistung zu verbessern.

  • Dokumentiere Deinen Code: Füge Kommentare hinzu, um die Funktionsweise Deines Codes zu erklären. Das erleichtert die Wartung und das Verständnis.

FAQ: Häufige Fragen

1. Wie finde ich die erste freie Zelle in einer anderen Spalte?
Ändere einfach die Spaltenreferenz in Cells(i, "A") zu der gewünschten Spalte, z. B. Cells(i, "B").

2. Kann ich das Makro anpassen, um mehrere Spalten gleichzeitig zu durchsuchen?
Ja, Du kannst eine Schleife durch die Spalten einfügen, um die erste freie Zelle in mehreren Spalten zu finden.

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