Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erste freie Zeile nach textbox in Tabellenblatt

erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 11:22:04
Nicole
Hallo zusammen,
ich habe wieder ein kleines Problem.
ich habe in meinem Tabellenblatt eine Textbox, die je nachdem mit mehr oder weniger Text gefüllt wird und mit Autosize automatisch größentechnisch angepasst wird.
Nun möchte ich in die nächste freie Zeile, die von der Textbox nicht verdeckt wird, einen Text schreiben.
wie kann ich diese erste frei Zeile ausfindig machen, gibt es da einen Code? Ich stehe voll auf dem Schlauch...
Vielen Dank im Voraus
Grüße
Nicole

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 13:38:53
Robert
Hallo Nicole,
die erste freie Zeile unter der Textbox mit dem Namen "Textbox1" kann man wie folgt ermitteln: 
Sub FreieZeile()
Dim dH As Double, i As Integer
dH = ActiveSheet.TextBox1.Top + ActiveSheet.TextBox1.Height
Do
i = i + 1
Loop Until Cells(i, 1).Top >= dH
MsgBox "Die erste freie Zeile unter der Textbox hat die Nr. " & i
End Sub
Gruß
Robert
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 15:54:00
Nicole
Hallo Robert,
ich habe den Code soeben ausprobiert, leider funktioniert er noch nicht ganz, VBA meldet immer Laufzeitfehler 6 Überlauf und die Variable i hat den Wert 32767
Grüße
Nicole
Anzeige
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 16:21:07
Robert
Hallo Nicole,
ist Deine Textbox so tief, noch unter der Zeile 32767? Damit hatte ich nicht gerechnet. Ändere den Datentyp der Variablen i wie folgt auf Long 
Dim dH As Double, i As Long
Gruß
Robert
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 19:27:07
Nicole
Hallo Robert,
nein eigentlich nicht, die TextBox ist im zweistelligen Bereich...
dann muss ich was anderes falsch gemacht haben.
Grüße Nicole
AW: erste freie Zeile nach textbox in Tabellenblatt
03.06.2018 00:39:07
fcs
Hallo Nicole,
die letzte Zeile die ein Shape-Object übedeckt kann man direkt als Eigenschaft ermittel. 
Sub ZeileUnterTextbox1()
Dim Zeile As Long, strShapeName As String
strShapeName = "Textbox1"
Zeile = ActiveSheet.Shapes(strShapeName).BottomRightCell.Row + 1
MsgBox "Zeile: " & Zeile, vbOKOnly, "Zeile unter " & strShapeName
'Cells(Zeile, 2).Select
End Sub
Gruß
Franz
Anzeige
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 19:24:40
Nicole
Hallo Robert,
ich habe den Code soeben ausprobiert, leider funktioniert er noch nicht ganz, VBA meldet immer Laufzeitfehler 6 Überlauf und die Variable i hat den Wert 32767
Grüße
Nicole
AW: erste freie Zeile nach textbox in Tabellenblatt
02.06.2018 19:49:27
Sepp
Hallo Nicole,
Sub nextCell()
  With Sheets("Tabelle1")
    .Cells(.TextBox1.BottomRightCell.Row + 1, 1) = "Hallo!"
  End With
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige

304 Forumthreads zu ähnlichen Themen

Werte in nächste freie Zeile schreiben
Nopummel

Hallo zusammen,
ich möchte Daten aus einer Datei in eine andere kopieren, dabei sollen die Werte in die nächste freie Zeile geschrieben werden. Das Problem dabei ist, dass ich die Daten aus verschiedenen genau gleich aufgebauten Dateien rasukopieren will. D.h Aus Datei A kopiere ich 5 Zeile...
15.09.2009 10:05:34
Thread-ID: 1102849
5 Beiträge
Anzeige
nach filter erste zeile finden
abu

Hallo Zusammen,
ich hab ein kleines Problem und hoffe das mir hier jemand helfen kann.
Schreibe grad ein Makro um ein paar arbeiten zu vereinfachen:
1. setze Filter
2. loesche alle Zeilen
Mein Problem ist wie ich Excel sage wo die erste Zeile ist. Also die erste Zeile ist na...
28.04.2010 12:58:42
Thread-ID: 1154286
4 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
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
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
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
4
2
3
6
6
2
5
1
6
27
2
1
2
3
2
2
19
14
2
11
4
3
11
3
4