Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1. freie Zeile in 1. freier spalte finde

Forumthread: 1. freie Zeile in 1. freier spalte finde

1. freie Zeile in 1. freier spalte finde
02.02.2021 14:15:01
Jürgen
Hallo liebes Forum,
vielleicht ist jemand so nett und kann mir helfen.
Ich will einen Wert in die 1. freie Zeile der 1. freien Spalte einfügen.
Probiert habe ich schon folgendes: 

Dim loletzte As Long
Dim lorechts As Long
loletzte = Cells(Rows.Count, 1).End(xlUp).Row  '
loletzte = loletzte + 1
lorechts = Cells(Rows.Count, 1).End(xlLeft).Column
lorechts = lorechts + 1
Range(lorechts & loletzte).Value = ComboBox5.Text

Funktioniert nicht
Vielen Dank im Vorraus für eure Hilfe
LG Jürgen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1. freie Zeile in 1. freier spalte finde
02.02.2021 14:21:24
Rudi
du meinst wohl
lorechts = Cells(1, Columns.count).End(xltoLeft).Column
Gruß
Rudi
AW: 1. freie Zeile in 1. freier spalte finde
02.02.2021 14:31:55
Werner
Hallo,
Range erwartet eine Adresse als String. 

Dim loletzte As Long
Dim lorechts As Long
loletzte = Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
lorechts = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
Cells(loletzte, lorechts) = ComboBox5.Text

Gruß Werner
Anzeige
AW: 1. freie Zeile in 1. freier spalte finde
02.02.2021 16:13:17
Jürgen
Danke euch beiden.
Jetzt hab ich aber vmtl. noch einen Denkfehler.
Der Inhalt meiner Combobox soll jetzt in die 1. freie Spalte der Zeile 3
lorechts = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
lorechts = lorechts + 1                         'erster freie
Cells(lorechts & "3") = ComboBox5.Text
Was ist da bei meinem Code nicht richtig?
Lg und danke Jürgen
Anzeige
ogottogott
02.02.2021 16:23:21
Rudi
du weiß anscheinend gar nicht, was du machst.
lorechts = Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Column
Cells(3, lorechts) = ComboBox5.Text

oder ganz einfach 
Cells(3, Columns.Count).End(xlToLeft).Offset(, 1) = ComboBox5
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

inhalt aus textbox in letzt freie zeile
hans

Hallo und guten Abend,
ich möchte gerade ein Userform erstellen, dass mir die werte die ich über mehrere Textboxen eingebe, in die letzte freie Zeile einträgt. Mit VBA kenn ich mich leider gar nicht aus. Zwar klappt das eintragen per Userform, aber wo und wie ich den Code produzieren und ei...
03.01.2009 23:46:03
Thread-ID: 1036668
10 Beiträge
Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
letzte freie Zeile ermitteln
Kai

Hi,
wie kann ich denn die erste freie Zeile in meinem Sheet ermitteln ? Seither habe ich das so gemacht, dass ich nur B geprüft habe:
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
das geht aber nicht mehr, da es vorkommen kann das eine andere Spalte weiter runter befüllt ist.
wi...
25.03.2009 11:36:06
Thread-ID: 1063680
7 Beiträge
Freie Zeile in vorgegebenen Bereich suchen
uww

Ich brauche bei dem folgenden Makro Eure Hilfe:
Public Sub Daten_übertragen() Dim liZeile As Integer With ActiveSheet If .Cells(Rows.Count, 1).End(xlUp).Row = 1 And .Range("A60").Value = " " Then liZeile = 1 Else liZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 End If .Range("A" & li...
23.06.2009 11:36:20
Thread-ID: 1083726
3 Beiträge
1 freie Zeile statt B10 in bestehenden Macro änder | Herbers Excel-Forum
snore
Hallo Excelprofis,
hab wieder ein Problem ich hab ein Macro von t.ramel, funktioniert super,
in diesen Macro werden Daten aus einer geschlossenen Arbeitsmappe Kopiert und in die Ziel Arbeitsmappe ab deb Bereich B10 beingefügt, soweit so gut.
Nun möchte ich aber das nicht ab der Zelle...
24.01.2010 11:23:41
Thread-ID: 1132436
6 Beiträge
Anzeige
bei WAHR Zelleninhalt in freie Zeile eintragen
Kuhlmey

Hallo liebe Excel-Spezialisten,
habe folgendes Problem:
1. Arbeitsblatt mit 100 Einträgen in Spalte B nach unten
2. Steuerelement "aktiviert durch Hacken" neben jeder Zelle in Spalte C (also 100 mal)
3. Den Ausdruck "Wahr" oder "Falsch" in Spalte D zu jeder Zeile, je nach dem o...
08.03.2010 17:25:28
Thread-ID: 1144381
7 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
Anzeige
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
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 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
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