Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox and Zeileneintrag

Forumthread: Textbox and Zeileneintrag

Textbox and Zeileneintrag
13.07.2019 03:15:14
Sigi
Hallo,
wie kann ich es besser lösen, dass wenn ein Textboxeintrag leer ist,
die Zeile dennoch nicht leer bleibt bzw. mit dem nächsten Eintrag bestückt wird.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/130879.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox and Zeileneintrag
13.07.2019 07:06:58
Hajo_Zi
Hallo Sigi,
was briungt das, Tabelle ist doch Leer? 
            If .txt_Telefon = "" Then
Cells(3, 6) = Cells(3, 6).Offset(1, 0)
Else
Cells(3, 6) = "Telefon:" & .txt_Telefon
End If
Cells(3, 8) = "a"

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Textbox and Zeileneintrag
13.07.2019 07:18:22
Sigi
Hallo Hajo,
es geht darum das beginnend ab Cells(3,6) die Einträge der 5 Textboxen untereinander stehen soll.
Sollte eine Textbox leer sein, z.B. "Fax" dann würde ja die Zeile (4,6) leer sein.
Dies sollte verhindert werden.
Das ganze ist für einen Briefkopf.
Danke!
Gruß
Sigi
Anzeige
AW: Textbox and Zeileneintrag
13.07.2019 07:24:04
Hajo_Zi
Hallo Sigi,
das passiert bei meine Variante, wenn Tabelle entsprechend gefüllt ist. Ich musste es annnehmen womit gefüllt, da dies nicht mitgeteilt wurde.
Daran ändert sich nichts, da dies immere noch nicht mitgeteilt wurde.
Gruß Hajo
Anzeige
AW: Textbox and Zeileneintrag
13.07.2019 09:31:06
Werner
Hallo Sigi,
was stört dich denn an deiner Version mit dem sortieren? 
Private Sub CommandButton1_Click()
Dim i As Long
i = 3
With UserForm1
Range(Cells(i, 6), Cells(7, 8)).Clear
If .txt_Telefon.Value  "" Then
Cells(i, 6) = "Telefon:" & .txt_Telefon
End If
If .txt_Fax.Value  "" Then
i = i + 1
Cells(i, 6) = "Fax:" & .txt_Fax
End If
If .txt_Mobil.Value  "" Then
i = i + 1
Cells(i, 6) = "Mobil:" & .txt_Mobil
End If
If .txt_Mail.Value  "" Then
i = i + 1
Cells(i, 6) = "Mail:" & .txt_Mail
End If
If .txt_Home.Value  "" Then
i = i + 1
Cells(i, 6) = "Home:" & .txt_Home
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Textbox and Zeileneintrag
13.07.2019 09:43:23
Sigi
Hallo Werner,
Danke für Dein Beispiel!
Ich wollte nur mal nachfragen ob es auch andere Möglichkeiten gibt.
Am Sortieren stört mich eigendlich nur das ich eine extra Spalte benötige und diese dann wieder
lösche.
Gruß
Sigi
Gerne und danke für die Rückmeldung o. w. T.
13.07.2019 10:56:53
Werner
;

Forumthreads zu verwandten Themen

Zellengröße automatisch anpassen
DockM@ster

Hallo,
über ein Tabellenblatt hole ich mir mit der Funktion "sverweis" die Daten. Dabei gibt es auch ein Feld "Langtext". Hier möchte ich, dass sich die Zelle automatisch an den Text anpasst. Mit den normalen Formatierungsfunktionen geht es nicht. Hat dazu jemand eine Lösung (VBA)?
Dock...
06.11.2008 19:55:00
Thread-ID: 1022412
8 Beiträge
wirkllich AUTOMATISCHE Zeilenhöhe bei langem Texti
Christian

Hallo Forum,
habe im Archiv gesucht, aber keine schlüssige Antwort gefunden... daher meine Frage:
in einem Arbeitsblatt mit nicht verbundenen Zelle steht in einigen Zellen Text der deutlich länger ist als die Zeilenbreite. Daher habe ich den Zeilenumbruch (für die gesamte Spalte in der...
07.01.2009 15:43:00
Thread-ID: 1037580
8 Beiträge
Anzeige
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
Zellgröße automatisch an Textlänge anpassen?
Martin

Hallo liebe Herber-Gemeinde,
gibt es eine Möglichkeit die Zellgröße in Excel automatisch an den darin vorhandenen Text anzupassen, ohne dass der Text dabei verkleinert wird?
Die fragliche Zelle wird mittels einer Formel mit Text aus einem anderen Tabellenblatt befüllt, der von Monat zu...
02.06.2010 12:11:47
Thread-ID: 1159990
6 Beiträge
Zeilen automatisch einfügen Druckbereich anpassen
andreas

Hallo zusammen,
habe hier eine Anwendung bei der unterschiedlich viele Positionen vorkommen. In Tabelle1 werden die Positionen angelegt, in AN sollen diese zum Druck generiert werden. Sind mehr als vier Positionen hat nicht mehr alles auf einer Seite Platz. Jetzt sollen wenn mehrere Positio...
15.06.2010 20:03:35
Thread-ID: 1161890
3 Beiträge
Anzeige
Excel 2010 - Zeilenhöhe anpassen
Sandra

Hallo Ihr,
ich bins mal wieder. Habe mal wieder ein Problem, zu dem mir keine Lösung einfällt.
Mein Problem:
Ich habe in Excel Text in einer Zelle. In der Bearbeitungsansicht und in der Seitenansicht wird alles korrekt dargestellt. Wenn ich dann aber den Ausdruck in der Hand halte...
30.11.2010 12:56:22
Thread-ID: 1189174
15 Beiträge
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Anzeige
Zeilenhöhe automatisch anpassen
Felix

Hallo,
ich habe einen private sub, der mir die Zeilenhöhe automatisch anpasst. Dies passiert aber nur, wenn ich das worksheet wechsle.
Gibt eine eine Möglichkeit, das gleiche bei ENTER zu bekommen, also wenn ich das Schreiben in eine Zelle abschließe?
danke für die Hilfe!
Gr...
17.06.2011 13:56:36
Thread-ID: 1218708
3 Beiträge
Zeilenhöhe für mehrere verbundene zellen anpassen
a_ke

Hallo,
das Makro für die Anpassung der Zeilenhöhe für verbundene Zellen habe ich bereits auf der
Excel-CD gefunden. Das funktioniert mit der jeweils markierten Zelle auch wunderbar.
Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim Curr...
17.03.2012 08:12:54
Thread-ID: 1255314
6 Beiträge
Anzeige
UserForm an Zeilenhöhe anpassen
Andre´

Hallo alle zusammen,
nach dem Aufruf einer UserForm soll sich der Zoomfaktor der UserForm an die Höhe der Zeile 1 orientieren und links in Zelle A1 sich öffnen.
nachfolgend ein Bsp.:

Und eine Bsp. Mappe
Die Datei https://www.herber.de/bbs/user/79728.xls wurde aus Datenschut...
10.04.2012 21:22:50
Thread-ID: 1258708
4 Beiträge
Zeilenhöhe in verbundener Zelle anpassen
Albert

Hallo VBA Experten,
in einer Tabelle soll vor dem Drucken die Zeilenhöhe für alle Zellen angepasst werden in der ein Zeilenumbruch (durch Alt+Enter eingegeben) vorkommt. Wenn ich eine normale If-Abfrage auf eine verbundene Zelle mache, wird der Zeilenumbruch erkannt und die gewünschte Zeile...
25.11.2012 11:31:10
Thread-ID: 1287927
3 Beiträge
Verbundene Zellen automatisch Höhe anpassen
bjoern

Hallo an die Forumsmmitglieder,
ich habe ein Problem das in diesem Forum schon einmal ähnlich behandelt wurde, ich bekomme es aber leider nicht auf meine Datei übersetzt, whs. weil ich zuwenig Ahnung mit VBA habe.
Der Dateiupload hat sich bei mir gesperrt, warum weiss ich leider nicht....
08.01.2013 18:05:20
Thread-ID: 1293314
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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