Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige