Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1508to1512
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
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform mit Optionen und Textboxen

Userform mit Optionen und Textboxen
20.08.2016 14:53:35
Dieter(Drummer)
Guten Tag, VBA Spezialisten,
in Musterdatei (anbei) ist eine Userform mir versch. Optionen per "opt1" bis "opt4", die schon gut funktionieren, mit Code entprechendem Code von mir.
Nun bitte ich um Hilfe für:
1. Bei Aktivierung von "opt5" (Zeile(n) Nummer), dann Eingabe der Zeilennummer in "txt1", soll die entsprechende Zeile angesprungen werden (als oberste Zeile).
2. Bei Aktivierung von "opt6" (Spalte(n) Buchstabe), dann Eingabe des Spaltenbuchatbens in "txt2", soll die entsprechende Spalte angesprungen werden (als ganz linke Zeile).
Mit der Bitte auf evtl. Hilfe und
Gruß, Dieter(Drummer)
https://www.herber.de/bbs/user/107739.xlsm

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform mit Optionen und Textboxen
20.08.2016 14:56:44
Hajo_Zi
zelle Links oben,
Von "Quinoman" Michael
Application.Goto Reference:="R14C6", scroll:=True
von Andre
Application.Goto Reference:=Range("F6"), scroll:=True

AW: Userform mit Optionen und Textboxen
20.08.2016 15:04:28
Dieter(Drummer)
Sorry Hajo, dass hilft mir leider nicht weiter, aber Danke für deine Rückmeldung.
Es solle(n) ja bei Eingabe der Zeilennummer, bzw. des Spaltenbuchstabens, in der Textbox der Userform, entsprechendes ausgeführt werden. Ich denke, da muss der Code entsprechend sein und da fehlt mir das entsprechende Wissen.
Gruß, Dieter(Drummer)
AW: Userform mit Optionen und Textboxen
20.08.2016 15:00:01
Crazy
Hi
hier mal ohne Überprüfung ob ein Zahlenwert in Txt1 steht 
Private Sub Opt5_Click()
If Txt1  "" Then
Rows(CLng(Txt1)).Select
Else
MsgBox "Bitte Zeilennummer eingeben"
End If
End Sub

entsprechend für die Spalten den Code für opt6
MfG Tom
Anzeige
AW: Userform mit Optionen und Textboxen
20.08.2016 15:13:47
Dieter(Drummer)
Danke Tom, das funktioniert jetzt schon für Txt1, anch deinem Code: 
Private Sub Txt1_Change()
If Txt1  "" Then
Rows(CLng(Txt1)).Select
Else
MsgBox "Bitte Zeilennummer eingeben"
End If
End Sub

Für txt2 konnte ich es nicht funtionsfähig umsetzen, denn da muss ja ein Buchstabe eingegeben werden: 
Private Sub Txt2_Change()
If Txt2  "" Then
Column(CLng(Txt2)).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
End Sub

Kannst du da nochmal helfen. Kann es sein, das es mit "Clng" hängt?
Gruß, Dieter(Drummer)
Anzeige
AW: Userform mit Optionen und Textboxen
20.08.2016 15:19:09
Crazy
Hallo Dieter
schau dir mal an wie ich die Zeile geschrieben habe
Rows
und schau wie du die Spalte geschrieben hast
Column
da wird was fehlen (flüster ein s)
da darf auch ein Zahlenwert bei rauskommen
MfG Tom
AW: Userform mit Optionen und Textboxen
20.08.2016 15:24:44
Dieter(Drummer)
Danke Tom für Hinweis und habe es jetzt so, kommt aber ein Fehlerhinweis, Laufzeitfehler 13, Typen unverträglich. Was ist falsch? 
Private Sub Txt2_Change()
If Txt2  "" Then
Columns(CLng(Txt2)).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
End Sub

AW: Userform mit Optionen und Textboxen
20.08.2016 15:26:57
Dieter(Drummer)
Tom, habe festgestellt, dass bei Eingabe mit Spaltennummer als Zahl es geht, aber es soll ja mit Buchstaben möglich sein.
Gruß, Dieter(Drummer)
Anzeige
AW: Userform mit Optionen und Textboxen
20.08.2016 15:29:03
Werner
Hallo Dieter,
das kann nicht gehen weil du versuchst einen String (Textboxeintrag = z.B. B) in einen Zahlenwert zu wandeln CLng(Txt2).
Private Sub Txt2_Change()
If Txt2  "" Then
Columns(Txt2).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
End Sub
Gruß Werner
AW: Userform mit Optionen und Textboxen
20.08.2016 15:38:08
Dieter(Drummer)
Danke für Info, Werner.
Tom konnte mir schon helfen, dennoch danke für deinen Hinweis.
Gruß, Dieter(Drummer)
AW: Danke für die Rückmeldung
20.08.2016 15:42:05
Werner
Hallo Dieter,
danke, aber hätte eh nicht funktioniert, siehe Hinweis won Tom bzgl. CStr(Txt2).
Gruß Werner
AW: Userform mit Optionen und Textboxen
20.08.2016 15:29:21
Crazy
Hallo Dieter
hatte überlesen das du den Spaltenbuchstaben und nicht die
Spaltennummer eingeben willst
teste mal das hier 
Private Sub Txt2_Change()
Dim strSpalte As String
If Txt2  "" Then
strSpalte = Txt2.Value
Columns(strSpalte).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
End Sub

MfG Tom
Anzeige
AW: Userform mit Optionen und Textboxen
20.08.2016 15:31:53
Crazy
Hallo nochmal
oder auch so 
Private Sub Txt2_Change()
If Txt2  "" Then
Columns(CStr(Txt2)).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
End Sub

@Werner ohne "cstr" geht es wohl nicht
MfG Tom
AW: Userform mit Optionen und Textboxen
20.08.2016 15:41:21
Werner
Hallo Tom,
danke für den Hinweis. So würde es auch gehen:
If Txt2  "" Then
Columns(Txt2.Text).Select
Else
MsgBox "Bitte Spaltenbuchstaben eingeben"
End If
Gruß Werner
AW: Werner, danke, funktioniert auch perfekt
20.08.2016 15:47:47
Dieter(Drummer)
Danke für deine Hilfe und den Code.
Gruß, Dieter(Drummer)
AW: Danke Tom, einfach perfekt ...
20.08.2016 15:36:47
Dieter(Drummer)
... vielen Dank für dein Lösung.
Kannst du es noch so erweitern, dass die Eingaben in den txt1 und txt2 abhänhing sind, ob jeweils opt5 und opt6 entsprechend aktiviert wurden? Wäre toll.
Gruß, Dieter(Drummer)
Anzeige
AW: Danke Tom, einfach perfekt ...
20.08.2016 15:45:55
Crazy
Hallo Dieter
warum nimmst du dann nicht wie in der Ausgangsfrage
das Optionbutton_Click-Ereignis?
so wie ich es dir in der ersten AW für die Zeile geschrieben habe
MfG Tom
AW: Danke Tom, einfach perfekt ...
20.08.2016 15:53:30
Dieter(Drummer)
Hallo Tom, du hast vollkommen Recht, da bin ich nicht daruf gekommnen und es funktioniert perfekt:
z.b.: 
Private Sub Opt5_Click()
If Txt1  "" Then
Rows(CLng(Txt1)).Select
Else
MsgBox "Bitte Zeilennummer eingeben"
End If
End Sub

Ich werde noch eine Fehlerroutine einbauen.
Danke für deine perfekte Hilfe und ein schönes WE.
Gruß, Dieter(Drummer)
Anzeige
Fehlerroutine mit Fehler...nicht getestet?
20.08.2016 17:33:57
robert

299 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 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
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton 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
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1