Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 11:05:44
datum automatisch ändern und einfügen
28.04.2024 10:11:19
Nur aktuelle und direkte Unterordnen durchsuchen
28.04.2024 10:01:02
Rang aus zwei Datumsspalten ermitteln
28.04.2024 09:02:18
Dateiordner auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nächste feie Zelle eine Zeile darunter

Nächste feie Zelle eine Zeile darunter
03.02.2020 09:19:36
SeMa
Hallo,
die Sache wäre eigentlich sehr einfach. Ich möchte unter der Zelle C5 in der Spalte C die nächste Freie Zelle von oben aus mit dem Wert aus einer Textbox belegen.
Code:
Range("C5", Cells(Range("C5").End(xlDown).Row + 1, "C")).Value = TextBox1
Leider schreibt er mir aber nun die ganze Spalte C bis zum Ende der Tabelle mit TextBox1 voll und nicht nur den nächsten freien Platz ?
Vielen Dank schon mal!!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Loop
03.02.2020 09:53:21
Matthias
Hallo 

Sub SeMa()
Dim x&
x = 5
Do Until Cells(x, 3) = ""
x = x + 1
Loop
Cells(x, 3) = "Dein Textbox-Text"
End Sub
Gruß Matthias
AW: Loop
03.02.2020 10:25:21
SeMa
Vielen Dank ...Super!!
AW: Nächste feie Zelle eine Zeile darunter
03.02.2020 10:48:41
Daniel
Hi
naja, mit Range(a, b) definierst du ja einen Zellbereich von a bis b.
hier sollte reichen:
Range("C5").end(xldown).Offset(1, 0).value = Textbox1.Text
allerdings muss man hier noch ein paar Sonderfälle abdecken.
Ich gehe mal davon aus, dass C5 eine Überschrift ist und daher immer befüllt ist.
das End(xldown) funktioniert aber nur dann richtig, wenn C5 und C6 befüllt sind.
C6 sollte man auf jeden Fall abfragen:
if Range("C6").value = "" then
Range("C6").value = TextBox1.Text
Else
Range("C5").End(xldown).Offset(1, 0).value = Textbox1.Text
End if
wenns ein Einzeiler werden soll, probiermal: 
IIf(Range("C6").Value = "", Range("C6"), Range("C5").End(xlDown).Offset(1, 0)).Value = Textbox1.text
Gruß Daniel
Anzeige
AW: Nächste feie Zelle eine Zeile darunter
04.02.2020 09:11:37
SeMa
Vielen Dank Daniel!
Leider bin ich noch nicht ganz am Ziel.
Folgendes klappt perfekt:
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = TextBox1 'erste freie Zelle in SpalteB
Genau das bräuchte ich mit xlDown ... also nicht von unten her suchen sondern von oben.. geht aber leider nicht.
AW: Nächste feie Zelle eine Zeile darunter
04.02.2020 10:05:47
Daniel
HI
warum so umständlich für den Sprung von unten nach oben reicht das: 
Cells(Rows.Count, 2).end(xlup).Offset(1, 0).value = Textbox1.Text
sprung von oben nach unten geht genauso mit End(xldown): 
Cells(1, 2).End(xldown).Offset(1, 0).value = Textbox1.text

allerding funktioniert der Sprung hier nur korrekt, wenn die Absprungzelle und die direkt darunter liegende Zellen befüllt sind.
das was wahrscheinlich nicht immer gegeben ist, muss man da noch eine Prüfung einbauen.
die Absprungzelle sollte eigentlich immer befüllt sein, da jede Tabelle in der Regel eine Überschrift hat, also muss man die darunter liegende Zelle abfragen: 
If Cells(2, 2) = "" Then
Cells(2, 2).Value = Textbox1.Text
Else
Cells(1, 2).end(xldown).Offset(1, 0).value = Textbox1.text
End if
das kann man auch als Einzeiler schreiben, wenn man kurzen Code mag: 
IIF(Cells(2, 2).value = "", Cells(2, 2), Cells(1, 2).end(xldown).Offset(1, 0)).value = Textbox1.text
Gruß Daniel
Anzeige
AW: Nächste feie Zelle darunter
04.02.2020 21:39:51
GerdL
Moin
Sub downunder()
If Cells(6, 3) = "" Then
Cells(6, 3).Value = "XXX"
ElseIf Cells(7, 3) = "" Then
Cells(7, 3).Value = "XXX"
Else
Cells(6, 3).End(xlDown).Offset(1, 0).Value = "XXX"
End If
End Sub
Gruß Gerd

301 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2