Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe

VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
16.10.2004 17:21:33
Michael
.
Servus Forum-Aktive,
gibt es eine VBA-Such-Funktion,
die den Inhalt der Zelle in
Spalte "A" ausgibt, wenn in dierser
Zeile sich der Such-Text befindet.
Oder besser !
Gibt es eine VBA-Such-Funktion,
die die tatsächliche Zeilen-Nummer
ausgibt, wenn in dierser
Zeile sich der Such-Text befindet.
Hat jemand hierzu einen Vorschlag ?
Ich hänge z.Z. an einem Problem,
probiere schon den ganzen Nachmittag
und komme einfach nicht mehr weiter!
Vielen Dank im Voraus.
Gruss Michael

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
16.10.2004 17:27:45
Hajo_Zi
Hallo Michael,

Sub Test322()
'   erstellt von Hajo.Ziplies@web.de 02.06.03
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = 65536
If .Range("A65536") = "" Then LoLetzte = .Range("A65536").End(xlUp).Row
Set Found = .Range("A1:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub  'falls nicht gefunden wird sub verlassen
MsgBox Found.Address
End With
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
16.10.2004 17:48:40
Michael
.
Servus Hajo,
vielen Dank für Deinen Vorschlag.
Ich suche eine einfache Funktion,
z.B. wie diese folgende :
PosST = (Application.WorksheetFunction.Match _
(Stext, Sheets(Alph).Range _
(SpalteBC & AnfZ & ":" & SpalteBC & EndZ), 0))
'Diese Funktion gibt die Zeilen-Position aus
'innerhalb des definierten Blocks,
'der durchsucht werden soll,
'Achtung :
'diese Zeilen-Position entspricht nicht
'der tatsächlichen Zeilen-Position
'des Tabellen-Blattes !
Desshalb suche ich eine ähnliche Funktion,
die die tatsächliche Zeilen-Nummer ausgibt,
wenn die Zeile den Such-Text enthält,
der in der Variablen "Stext" abgelegt ist.
Gruss Michael
Anzeige
AW: VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
Reinhard
Hi Michael,
bist doch schon nahdran:
PosST = AnfZ-1+Application.WorksheetFunction.Match(Stext, Sheets(Alph).Range _
(SpalteBC & AnfZ & ":" & SpalteBC & EndZ), 0)
Gruß
Reinhard
AW: VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
Ulf
Zeile = Columns(1).find(DeinSuchbegiff).Row
Ulf
AW: VBA-Such-Funktion mit Zeilen-Nummer-Ausgabe
Reinhard
Hi Michael:

Sub tt()
Range("B1") = "Huhu"
On Error GoTo Fehler
pos = Application.WorksheetFunction.Match(Range("B1"), Range("A:A"), 0)
msgbox pos
Exit Sub
Fehler:
msgbox Range("B1") & " wurde nicht gefunden"
End Sub

Gruß
Reinhard

134 Forumthreads zu ähnlichen Themen

(Sverweis?!) Mehrere Werte wiedergeben?
Reinhardt

Hallo liebe Excelgemeinde,
ich habe wieder mal ein Problem:
Undzwar habe ich eine Tabelle, wo Ländernamen den entsprechenden Mitarbeitern zugeordnet sind.
Ein Mitarbeiter kann für mehrere Länder verantwortlich sein
Nun habe ich in einer zweiten Tabelle eine Dropdown box mit de...
08.07.2009 19:06:35
Thread-ID: 1087254
5 Beiträge
Anzeige
VBA If Funktion mit Inhaltssuche in Target Feld
Michael

Hallo zusammen,
ich habe mein erstes kleines VBA Makro geschrieben (siehe unten). Soweit funktioniert auch alles. Allerdings habe ich jetzt das Problem das ich im Target nicht nach einem fest definierten Inhalt sondern nach einem bestimmten Wort ("dedicated") suchen möchte. Vielleicht sollt...
28.01.2011 08:09:32
Thread-ID: 1197758
4 Beiträge
Matrixformelfehler, "sverweis" mit mehreren werten
Matz

Guten Abend zusammen
ich habe eine Tabelle, in der ich Spielergebnisse auswerten möchte.
Daher möchte ich im ersten Schritt, alle Gegner eines Spielers aufzählen. Dafür verwende ich eine Matrixformel.
Ich möchte allerdings nur die Einzelspiele auflisten, nicht die Doppel. Die Matri...
22.07.2011 18:01:07
Thread-ID: 1223243
8 Beiträge
Anzeige
VBA-Funktion für Mittelwert ohne Null-Werte
Sören Wiechert

Hallo,wie heisst die VBA-Funktion für eine Mittelwertsberechnung eines Range? Und wie kann man wenn möglich Nullwerte aus der Berechnung ausschliessen?Gruß,
Sören
19.06.2002 11:13:14
Thread-ID: 129798
4 Beiträge
Mehrere spalten durchsuchen und Werte zurückgeben
John

Hallo,
ich habe noch nicht wirklich eine Idee, wie ich an das Thema rangehe. Deshalb schildere imal das Ergebnis das ich erhalten möchte (siehe angehängtes Excel-Beispiel https://www.herber.de/bbs/user/83483.xlsx ).
Ich benötige für jede ID (Spalte D und Spalte E) jeweils den Begriff (S...
20.01.2013 14:41:31
Thread-ID: 1295107
6 Beiträge
"SVerweis" mit mehreren Ausgabewerte
Dominic

Hallo zusammen,
ich benötige eine Art SVerweis mit mehreren Ausgabewerte.
In Spalte B steht eine "Gruppenbezeichnung", in Spalte A stehen die einzelnen "Mitglieder" dieser Gruppe heißt zum Beispiel.
A1:Hans B1: Gruppe1
A2:Werner B2: Gruppe2
A3:Jakob...
08.02.2013 14:37:01
Thread-ID: 1298361
6 Beiträge
VBA Funktion, die Zeilen mit "#NV" löscht
Giesarazu

Hallo Freunde,
ich möchte per VBA alle Zeilen einer Spalte löschen, wo der Fehlerwert #NV steht. Hinter #NV ist aber keine Formel mehr, da vorher kopiert und als feste WERTE eingefügt worden.
Kennt Ihr eine VBA-Funktion, mit der ich diese Zeilen löschen kann ? Also
if cells(i, 1).va...
21.08.2013 11:36:54
Thread-ID: 1327788
8 Beiträge
VBA Excel Makro WENN Funktion mit ChrW 10004
braun

Guten Abend,
und zwar habe ich eine Excel Mappe mit zwei verschiedenen Tabellenreitern.
In dem ersten Tabellenreiter ist ein Makro abgelegt, dass mir bei nacheinanderfolgendem Klicken einer Zelle (A3) einen Haken (ChrW Unicode), Kreuz (auch über Unicode) oder NA anzeigt.
Das klappt...
28.01.2015 19:04:39
Thread-ID: 1405856
14 Beiträge

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
1
3
7
5
3
5
5
7
13
3
5
2
1
4
6
3
6
3
8
16
13
8
1
7