Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Textbox-Inhalt in Modul verwenden

VBA Textbox-Inhalt in Modul verwenden
28.11.2020 22:34:05
Excelaner
Hi Leute,
ich möchte in eine Spalte folgendes reinschreiben:
In Spalte H stehen IDs entweder mit 1 oder 2 beginnend.
In Spalte G soll geprüft werden ob Spalte H das erste Zeichen eine 1 oder 2 ist. Wenn 1 = "A Test" und wenn 2 = "B Test".
Zusätzlich zu A oder B soll noch der Inhalt von UserForm1.TextBox1.Text reingeschrieben werden.
z.B. steht in H2 drin: 1001
und in Textbox1 steht: "November 2020"
Dann wäre das Ergebnis in G2 = "A Test November 2020"
Wie krieg das am einfachsten hin? :)
Danke euch!

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 22:47:45
ralf_b
ungetestet
dim i as long
do while Range("H" & i )  vbNullstring
if Left(RAnge("H" & i).text = "1" then
RAnge("G2") =  "A Test " & UserForm1.TextBox1.Text
else if Left(RAnge("H" & i).text = "2" then
RAnge("G2") =  "B Test " & UserForm1.TextBox1.Text
end if
i = i+1
loop

AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 23:04:51
Excelaner
hi Ralf,
danke dir. Ich erhalte jedoch die Fehlermeldung: Loop ohne Do
Was ist falsch?
AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 23:19:24
ralf_b
echt? naja hab sowieso noch andere bugs gefunden, und jetzt läuft es aber durch. bei mir 
Dim i As Long
i = 2
Do While Range("H" & i).Value  vbNullString
If Left(Range("H" & i).Value, 1) = "1" Then
Range("G2") = "A Test " '& UserForm1.TextBox1.Text
ElseIf Left(Range("H" & i).Value, 1) = "2" Then
Range("G2") = "B Test " '& UserForm1.TextBox1.Text
End If
i = i + 1
Loop
End Sub

Anzeige
AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 23:22:21
ralf_b
is wohl doch etwas spät
Range("G2") in Range("G" & i ) ändern
AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 23:48:02
Excelaner
Das habe ich bereits schon entdeckt gehabt, danke dir.
Ich habs jetzt doch nochmal etwas angepasst, da es bei mir nicht korrekt funktioniert hatte. Aber es funktioniert auch in meiner Version nicht richtig, die Spalte G wird komischerweise immer erst ab Zeile 22 befüllt, G22 gehört dann aber trotzdem zu H2. Warum denn?
Sub TEST()
ltzS = Sheets("Tabelle1").Range("H100").End(xlUp).Row
For i = 1 To ltzS
If Left(Range("H" & i).Value, 1) = "1" Then
Range("G2" & i).Value = "A Test " & UserForm1.TextBox1.Text
ElseIf Left(Range("H" & i).Value, 1) = "2" Then
Range("G2" & i).Value = "B Test " & UserForm1.TextBox1.Text
End If
Next
End Sub

Anzeige
AW: VBA Textbox-Inhalt in Modul verwenden
28.11.2020 23:58:20
Excelaner
ist wirklich zu spät geworden. nicht Range("G2" & i) sondern Range("G" & i) müsste es heißen!
DANKE dir Ralf!!!
AW: VBA Textbox-Inhalt in Modul verwenden
29.11.2020 09:57:39
Hajo_Zi
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?
Das ist nur meine Meinung zu dem Thema.

AW: VBA Textbox-Inhalt in Modul verwenden
29.11.2020 19:10:10
Excelaner
Sorry, habs vergessen :)
AW: VBA Textbox-Inhalt in Modul verwenden
29.11.2020 19:17:47
Hajo_Zi
Du hast es immer noch vergesen mitzuteilen was offen ist!!!
aktiviere die Checkbox "Aktiviere. " nicht falls nicht offen.
Falls Offen solltesrt Du miteilen was offen ist.
Gruß Hajo
Anzeige
AW: VBA Textbox-Inhalt in Modul verwenden
29.11.2020 19:20:34
Excelaner
Verstehe ich nicht, ich habs doch nicht aktiviert. Liegt es eventuell dran, dass ich es mit dem Handy versuche?
Habs jetzt mal mit nem anderen Browser versucht.

303 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox 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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4