Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox & VBA

Textbox & VBA
26.10.2007 08:09:34
Mathias
Guten morgen Excelfreunde,
könnt Ihr mir bitte helfen? Ich habe auf TB1 in Spalte A zwischen Zelle A4 bis A1000 nur Zahlen stehen (die Zahlen haben alle eine Unterschiedliche Wertigkeit).
Im oberen Bereich lacht mich nun diese Textbox aus...
Hinter Ihr sollte eigentlich ein Code stehen, der kontrolliert, welche Zahl steht in der Textbox? und dann in Spalte A die Zelle mit selben Inhalt selektieren.
vielen Dank
Mathias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox & VBA
26.10.2007 08:21:08
Matthias
Hallo Namensvetter,
es geht auch ohne Textbox, in meinem Beispiel den zu suchenden Wert in A2 eingeben:
Ins Codemodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range("A2"))
If Not rng Is Nothing Then
If rng.Value  "" Then
Set z = Range("A4:A1000").Find(What:=rng.Value, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "nicht gefunden!"
Else
z.Select
End If
End If
End If
End Sub


Gruß Matthias

AW: Textbox & VBA
26.10.2007 17:04:44
Mathias
Hat allles super funktionier :-)
danke Matze

Anzeige
AW: Textbox & VBA
27.10.2007 08:58:00
Mathias
Guten morgen,
gestern hat mir Matthias hier dieses schöne Makro hinterlassen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range("H1"))
If Not rng Is Nothing Then
If rng.Value  "" Then
Set z = Range("A4:A6000").Find(What:=rng.Value, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "nicht gefunden!"
Else
z.Select
End If
End If
End If
End Sub


das funktioniert wirklich super, mir ist nur aufgefallen, das einige Nummern im Bereich in Spalte A bei mir doppelt
vorhanden sind, deshalb muss ich meine Frage noch erweitern, könnt Ihr mir nochmal helfen?
Bevor dieses Makro ausgeführt wird, währe es schön, wenn eine Abfrage im Bereich A4:A6000 durchgeführt werden könnte und im Falle eines doppelten eintrages kommt eine Meldung z.B.
Diese Nummer ist mehrfach vorhanden, in Zeile 6, in Zeile 521 und in Zeile 4109 die erste Zeile wird jetzt
selektiert.
Danach wird dann das Makro von Matthias ausgeführt.
vielen Dank
Mathias

Anzeige
AW: Textbox & VBA
27.10.2007 13:27:00
Mathias
Habe ich schon gelöst....
Danke

176 Forumthreads zu ähnlichen Themen

VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Anzeige
Summe aus Zelle und Textbox ermitteln -VBA-
Wolfgang

Hallo,
ein UF/Multipage1 enthält in einer Gruppe 4 Optionboxes (Gruppenname: Ausgaben - Boxes 1-4) und in einer anderen Gruppe 3 Optionboxes (Gruppenname: Zeit - Boxes 5-7). Ich würde gerne Berechnungen durchführen lassen, deren Ergebnis in Textbox 10 erscheint.
Ablauf:
Wenn Option...
03.10.2009 21:39:03
Thread-ID: 1107018
6 Beiträge
TextBox mit Index füllen via VBA
chrissey

Hallo Leut, guten Morgen,
habe folgendes Problem:
habe in einer UserForm eine TextBox (TextBox1 ) und möchte diese jetz über
einen Index Verweis kombiniert mit einer Vergleichen Funktion in einem Sub
(ComboBox1_initialize) füllen. Die Formel sieht folgendermaßen aus:
INDEX(...
03.11.2009 09:57:58
Thread-ID: 1114009
5 Beiträge
Anzeige
Listbox + Textbox VBA
amintire

Hallo alle zusammen,
ich habe folgende Datei gebastelt und benötige eure Hilfe:
Die Datei https://www.herber.de/bbs/user/76542.xls wurde aus Datenschutzgründen gelöscht
Bei ComboBox1 sollen die Tabellen ausgesucht werden können (hier z.B. Januar, Februar oder März)
Wenn Januar...
09.09.2011 20:18:24
Thread-ID: 1229236
7 Beiträge
ActiveX-Textbox: Eingabe und Ausgabe
Marlon

Hallo,
Ich habe auf meinem Tabellenblatt eine ActiveX-Textbox erstellt und jetzt weiß ich nicht, wie
ich in diese Box einen Text per VBA einfüge, bzw. diese TextBox1 auslese.
Msgbox TextBox1.value oder TextBox1.text sieht schlecht aus.
Kann mir jemand einen Tipp geben, wie man e...
02.01.2012 16:33:15
Thread-ID: 1244260
3 Beiträge
VBA TextBox Formatierung
Andy

Guten Morgen zusammen
Bin mal wieder auf der Suche nach Hilfe.
Habe ein UF mit Textboxen, in einer Textbox sollte ich zahlen eingeben.
und möchte das dies gleich auch in der UF so dargestellt wird und auch in der
Tabelle.
123.4.456.789 = Darstellung
123445679 = Eingabe...
17.11.2012 08:16:50
Thread-ID: 1287043
16 Beiträge
per VBA alle Textboxen in Arbeitsmappe suchen
Peter

Hallo,
ich möchte per VBA in allen Blättern der gesamten Arbeitsmappe die Textboxen suchen
und wenn ein bestimmter Teil des Namens der gesuchten Textbox gleich ist
soll dort ein Inhalt eingefügt werden.
Mein Versuch ist mit meinen VBA Kenntnissen leider gescheitert.
Public S...
19.04.2013 07:38:02
Thread-ID: 1309478
6 Beiträge
Nach VBA-Ausführung ist die textbox1 verschwunden
Thomas

Hallo Gemeinde,
ich habe in Tabelle1 eine Textbox1 angelegt. Der Inhalt dieser Textbox1 wird nach klick auf Commandbutton1 auf weiteren Tabellenblättern verarbeitet.
Nach der Verarbeitung aktiviere ich wieder Tabelle1 >> Sheets("Tabelle1").Select Es funktioniert alles einwandfrei...
22.05.2013 15:03:30
Thread-ID: 1314359
14 Beiträge
Anzeige

Links zu Excel-Dialogen

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
1
6
5
4
7
6
2
15
5
13
2
14
7
4
2
10
1
3
4
7
6
3
2
1
1