Datum

Titel

20.04.2024 14:03:38

Http-Request (POST) für GraphQL API-Abfrage

20.04.2024 08:56:18

Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen

20.04.2024 07:57:54

Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1700to1704

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Textbox and Zeileneintrag

Forumthread: Textbox and Zeileneintrag
6 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox and Zeileneintrag

13.07.2019 07:06:58

Hajo_Zi
AW: Textbox and Zeileneintrag

13.07.2019 07:18:22

Sigi
AW: Textbox and Zeileneintrag

13.07.2019 07:24:04

Hajo_Zi
AW: Textbox and Zeileneintrag

13.07.2019 09:31:06

Werner
AW: Textbox and Zeileneintrag

13.07.2019 09:43:23

Sigi
Gerne und danke für die Rückmeldung o. w. T.

13.07.2019 10:56:53

Werner

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.

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

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

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

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