Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Springen

Suchen und Springen
31.03.2021 09:37:13
blaschdr
Hallo zusammen,
ich brauche mal eure Hilfe.
Ich habe eine Tabelle mit mehreren Sheets.
Jetzt möchte ich gern über eine UserForm einen Wert über eine Textbox in der gesamten Mappe suchen und zu dem Sheet springen, wo der Wert vorkommt.
Leider habe ich noch keine so gute VBA Kenntnisse, somit habe ich auch noch keine Versuche gemacht.
Könnt Ihr mir hierzu bitte helfen?
Besten Dank schonmal
Viele Grüße
Patrick

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Springen
31.03.2021 09:52:13
Daniel
Hi
Die Funktion bietet dir Excel auch so direkt an, da musst du nichts programmieren
Einfach im Suchfenster in den Optionen die Einstellung "Durchsuchen:=Arbeitsmappe" verwenden und ggf mit "Alle suchen" sich die Treffer zur Auswahl anzeigen lassen. Dort kann man sich dann durchklicken.
Leider kann man in VBA diese Suchoption nicht verwenden.
Wenn man das haben will, muss man in einer Schleife über die Sheets gehen:
Dim WS as worksheet
dim Zelle as range
for each ws in thisworkbook.worksheets
set Zelle = ws.cells.find(what:=Textbox1.Text, lookin:=xlvalues, lookat:=xlwhole)
if not Zelle is nothing then
Application.Goto Zelle
Exit for
end if
next
Gruß Daniel

Anzeige
AW: Suchen und Springen
31.03.2021 10:00:36
blaschdr
Hey Daniel,
super vielen Dank, werde es später ausprobieren.
Dass ich das auch mit der Suchfunktion machen kann weiß ich ;), aber das ist nur mal ein Anfang., von dem eigentlichen Ziel dahinter
Mit dem Code, wenn er funktioniert, experimentiere ich nun ein bisschen, um selber auf die Lösung zu kommen, die ich möchte.
Brauchte nur einen "Denkanstoß" :).
Grüße
Patrick

AW: Suchen und Springen
31.03.2021 12:14:04
Patrick
Hallo Daniel,
zur Info, hat funktioniert.
Nun habe ich noch eine Frage bei dir ich an meine Grenzen stoße.
Ich möchte im Textfeld nur 4 Zeichen zulassen (2xBuchstabe, gefolgt von 2xZahl, z.B. "KW36")
nachfolgend habe ich es schon hinbekommen, nur die gewünschten Zeichen zuzulassen, aber was ich vergebens versucht habe, ist die Zeichenfolge.
Hier der Code der nur die bestimmten Zeichen zulässt. 

Private Sub EingabeKW_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'Nur Zeichen: K, W, k, w, 0-9 zulassen
Case 75, 87, 107, 119, 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub


Anzeige
AW: Suchen und Springen
31.03.2021 12:32:05
Daniel
Hi
dazu musst du auch zusätzlich die Cursorposition ermitteln und aufgrund dieser entscheiden, welche Zeichen an dieser Stelle zulässig sind.
die Cursorpostition kannst du mit der Funktion SELPOS ermitteln
wenn die ersten zwei Zeichen immer KW sind, würde ich den Anwender diese gar nicht angeben lassen, sondern nur die Zahlen und das "KW" im Code hinzufügen.
Gruß Daniel

AW: Suchen und Springen
31.03.2021 22:23:16
Patrick
Hallo Daniel,
Hab es wie du gesagt hast gemacht und es klappt soweit
In das Feld wird nur die Zahl eingegeben und der Code überprüft dann "KW" & die Eingabe im Textfeld.
Grüße
Patrick
Anzeige

10 Forumthreads zu ähnlichen Themen

Makor zum kopieren vom zeilen mit veränderten wert
Robert74

Hallo liebe Experten,
ich habe folgendes Problem mit meiner excel tabelle:
Ich würde gern eine bereits bestehende Excel tabelle (3200 Zeillen) neu strukturieren sodass ich eine besser Übersicht habe in pivot. Momentan sieht sie so aus
c d e...
05.04.2012 10:38:20
Thread-ID: 1257997
5 Beiträge
Anzeige
Pivot - Nur sinnvolle Ergebnisse anzeigen
nwolf

Guten Morgen,
jetzt war ich wieder zu langsam und mein Beitrag ist erneut ins Archiv gerutscht:
www.herber.de/forum/archiv/1292to1296/t1292165.htm
Kann mir da noch jemand weiterhelfen? Die letzte Antwort von spain hat mich leider nicht weiter gebracht, da ich dann ja gar keine Zwisc...
07.01.2013 09:03:34
Thread-ID: 1293116
3 Beiträge
Zuordnung von Zeilen mit bestimmten Werten...
Zeilen

Hallo zusammen...
ich darf mal wieder eine Liste erstellen in der Kundennummern nach ihrer Endziffern (zweistellig) sortiert und dann den entsprechenden Bearbeitungsteams zugeordnet werden sollen.
Es gibt 8 Teams und die Endziffern gehen von 00 bis 99
Die Zuordnung ist momentan noch...
12.03.2013 09:18:46
Thread-ID: 1303288
12 Beiträge
Anzeige
Wert suchen und in andere Zelle was eintragen
Toumas

Hallo zusammen,
ich bräuchte "nur" mal einen kleinen Tipp....
Gesucht wird eine Kennung, die im Tabellenblatt Usereingabe, Zelle B4 steht
Suchen muss man in Tabelle 2 Spalte B..
das schaffe ich auch ohne Probleme mit dem Makro :
Sub User_finden() Dim s As String Dim rg As Ra...
22.07.2015 15:05:07
Thread-ID: 1437877
4 Beiträge
Wert aus Textbox suchen und in zelle Wert anzeigen
Philip

Hallo
Ich habe eine Userform in dieser habe ich zwei Textboxen, den Text aus Textbox1 möchte ich in der Spalte A suchen und wenn gefunden soll der Text aus Textbox2 In Spalte M auf der selben Zeile eingetragen werden.
Gruss Philip
18.01.2018 12:06:34
Thread-ID: 1603046
3 Beiträge
Wert suchen und in andere Zeile springen
K

Hallo zusammen,
Bin neu in VBA und ich stecke fest...
Also sagen wir mal ich habe folgende Tabelle:
.....A..................................B...........C
1. HausA........................... 1.......... K1
2. HausB.......................... 2...........K2
3. HausC...........
25.09.2018 22:55:19
Thread-ID: 1647740
6 Beiträge
VBA Wert suchen, kopieren und in Zelle schreiben
Romy

Hallo
ich benötige Hilfe bei meinem VBA Code. Bisher sieht der so aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target = Range("E4") Then Columns("A:C").Select Selection.EntireColumn.Hidden = False Range("E6, E8").ClearContents Range("Tabelle1").Autofilter Field:=1,...
04.06.2019 14:05:08
Thread-ID: 1696005
7 Beiträge
Wert suchen und in einer Zelle ausgeben
Benjamin

Hallo,
ich habe folgendes Problem:
Ich habe eine Tabelle in der steht ein bestimmter Wert (Uhrzeit) [Spalte A]
In einer weiteren Tabelle [c2:c15] steht die Zeit noch einmal und der Zeit ist
ein entsprechender Wert zugeordnet.
Der entsprechende Wert soll nun in Spalte F ausgegebe...
30.09.2004 21:37:44
Thread-ID: 493497
19 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
4
2
2
11
1
3
2
5
6
18