Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Find- Funktion

Find- Funktion
09.01.2004 20:06:31
marco
Hallo Ihr,
ich habe ein Problem mit der Find- Funktion und hoffe, ihr könnt mir helfen. Ich suche in einer Spalte nach Zahlen (unsortiert). Wenn ich aber die Zahl 10 suche, dann springt der Fokus z.B. auf 210. Ich habe den Parameter XlLookAt auf xlWhole gesetzt, da kommt aber immer der Fehler 'Typen unverträglich'. Was habe ich Falsch gemacht?
Code:
Set gZelle = ActiveSheet.Columns("A:A").Find(sBegriff, XlLookAt = xlWhole)
Vielen Dank!
Gruß, marco

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Find- Funktion
09.01.2004 20:44:12
Ulf
Was für ein Datentyp ist sBegriff?
Ulf
AW: Find- Funktion
09.01.2004 22:48:52
marco
Was für ein Datentyp ist sBegriff?
--> String
AW: Find- Funktion
09.01.2004 23:41:04
Ramses
Hallo
kannst du mal den ganzen Code zeigen ?
Gruss Rainer
AW: Find- Funktion
09.01.2004 23:47:56
marco
Gerne:
Dim search As Integer
---------------------------------------------------

Private Sub Worksheet_Activate()
search = 0
End Sub

---------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
Dim gZelle As Range
Dim sBegriff As String
Dim zeile As Integer
Dim spalte As Integer
sBegriff = [B3]
If sBegriff = "" Then Exit Sub
If (search Mod 2) = 0 Then
Set gZelle = ActiveSheet.Columns("A:A").Find(sBegriff, XlLookAt = xlWhole)
If gZelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!", , "Meldung"
[B3] = ""
[B3].Select
Exit Sub
End If
zeile = gZelle.Cells.Row
spalte = (gZelle.Cells.Column + 4)
ActiveSheet.Cells(zeile, spalte).Select
search = search + 1
Else
[B3].Select
[B3] = ""
search = search + 1
End If
End Sub


Gruß, Marco
Anzeige
HAT SICH ERLEDIGT! TROTZDEM DANKE!
09.01.2004 23:51:35
marco
danke
Geschlossen o.T.
10.01.2004 13:36:36
Ramses
...

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige