Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt mit beginnenden Text suchen

Zellinhalt mit beginnenden Text suchen
04.03.2008 10:24:00
Hans
Hallo Excelfreunde,
ich habe eine Tabelle mit ca. 30000 Zeilen. In der Tabelle sind nach rechts ca. 60 Artikelpaare eingetragen in der folgenden variante
(Zelle A1) Hauptnummer (obere Ebene) dazu benötigte Artikel -- Stückzahl1, Artikelnummer1, Modellbezeichnung1, Stückzahl2, Artikelnummer2, Modellbezeichnung3, usw. bis zur Stückzahl60....
Jetzt möchte ich da es verschiedene Artikel sind in den Zeilen und die Artikel in verschiedenen Spalten vorkommen, eine zweite Tabelle anlagen und bestimmte Artikeltexte absuchen. Die Einträge fangen z.B. mit dem Text Hebel Modell 1x an und Hebel Modell 2x, Stange xy und Stange xx an. Das bedeutet er soll mir Spalte für Spalte nach dem Text suchen wo mit Hebel beginnt und in die 2. Liste eintragen zum Passenden Hauptnummer. Er könnte ja eine 3. Tabelle ansprechen wo er den Text herausholen kann wo in a1 bis a10 die Textkürzel stehen.
für jede Hilfe bin ich Dankbar
MfG
Hans B

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt mit beginnenden Text suchen
07.03.2008 19:36:34
Tino
Hallo,
hiermit müsste es funktionieren.

Option Explicit
Sub SucheDaten()
Dim Suche As String, SWert As Range
Dim TA1  As Worksheet, TA2 As Worksheet
Dim ANZ As Long, A As Long
Dim MerkZ As Long
Suche = InputBox("Suchtest eingeben!", "Suche nach")
If Suche = "" Then Exit Sub
Application.ScreenUpdating = False
Set TA1 = Sheets(1) 'Tabelle Artikel
Set TA2 = Sheets(2) 'Filter Tabelle
ANZ = TA1.Cells.SpecialCells(xlCellTypeLastCell).Row
For A = 1 To ANZ
Set SWert = TA1.Rows(A).Find(What:=Suche, LookIn:=xlValues, LookAt:=xlPart)
If Not SWert Is Nothing Then
MerkZ = MerkZ + 1
TA2.Rows(MerkZ).Value = TA1.Rows(A).Value
End If
Next A
Application.ScreenUpdating = True
End Sub


Gruß
Tino

Anzeige

302 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
Anzeige
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
2
4
8
3
16
7
5
3
3
9
5
3
3
2
1
4
5
14
11
4
2
4
5
1
7