Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 1. Zelle mit Bedingung in Textbox1 usw.

1. Zelle mit Bedingung in Textbox1 usw.
01.04.2015 22:30:58
Andreas
Hallo Excelprofis,
ich sitze jetzt schon seit 2 Stunden an einem Problem, bei dem ich nicht weiterkomme.
Über das "UserForm_Initialize() - Ereignis" fülle ich mehrere Textboxen. Dabei werden
nur die Zellwerte in den Textboxen angezeigt, die mit "AW" beginnen (Danke an Hajo).

If Left(Sheets("Übersicht").Range("AX8"), 2) = "AW" Then
TextBox4 = Sheets("Übersicht").Range("AX8")
End If
If Left(Sheets("Übersicht").Range("AX9"), 2) = "AW" Then
TextBox5 = Sheets("Übersicht").Range("AX9")
End If
If Left(Sheets("Übersicht").Range("AX10"), 2) = "AW" Then
TextBox6 = Sheets("Übersicht").Range("AX10")
End If
Jetzt habe ich aber das Problem, dass die ersten beiden Textboxen bzw. auch zwischendurch mal eine Textbox manchmal leer bleiben.
Die Textboxen müssen aber lückenlos ab der ersten ausgefüllt werden.
Also: schreibe den ersten gefundenen Zellinhalt des Zellbereiches AX8:AX22 der mit "AW" beginnt in Textbox4. Den 2. gefundenen Wert der mit "AW" beginnt in Textbox5 usw. bis Textbox18.
Kann mir bitte Jemand helfen.
mfg, Andreas

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1. Zelle mit Bedingung in Textbox1 usw.
02.04.2015 02:43:39
Alexander
Dim Zeile As Integer
Dim txtBox As Integer
Dim iRow As Long
iRow = ActiveSheet.Cells(Rows.Count, 49).End(xlUp).Row 'Letzte beschriebene Zeile
txtBox = 4 'mit TextBox 4 starten
For Zeile = 8 To iRow
If Left(Sheets("Übersicht").Cells(Zeile, 49), 2) = "AW" Then
UserForm1.Controls("TextBox" & txtBox) = Sheets("Übersicht").Cells(Zeile, 49)
txtBox = txtBox + 1
End If
If txtBox = 19 Then
MsgBox "Die TextBoxen sind voll aber es sind noch weitere Datensätze vorehanden!"
UserForm1.Show 'Die musst du noch anpassen
Exit Sub
End If
Next Zeile
UserForm1.Show 'Die musst du noch anpassen

Anzeige
AW: 1. Zelle mit Bedingung in Textbox1 usw.
02.04.2015 07:58:20
Andreas
Hallo Alex,
vielen, vielen Dank für die Hilfe. Eine ganz kleine Änderung (Zeile auf 50) dann hats geklappt.
Ich wünsch dir ein schönes Osterfest.
mfg, Andreas

Sorry, das die anrede gefehlt hat
02.04.2015 02:58:56
Alexander
Hallo Andreas,
es tut mir leid das ich die Förmlichkeiten im Eifer des Gefechts vergessen hab.
Schöne Grüße
Alex
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige