Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Begriff suchen

Begriff suchen
22.10.2004 21:53:08
Uwe
Hallo,
ich lese einen beriff ein und speichere ihn in "Begriff" In einem anderen tabellenblatt schaue ich dann nach,ob es denBegriff da schon gibt. Siehe code. Allerdings bleibt c immer leer, auch wenn es den Begriff schon gibt. Kann mir jemand sagen wo der Fehler liegt?
Begriff = Sheets(ws).Cells(i, 3)
With Sheet("...")
Set c = .Columns(1).Find(What:=Begriff, LookIn:=xlValues, LookAt:=xlWhole)
Gruß
Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: Begriff suchen
22.10.2004 22:00:45
Hajo_Zi
Hallo Uwe,
gibt es den kompletten Begriff schon einmal. mit LookAt:=xlWhole suchst Du den kompletten Begriff
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.


AW: Begriff suchen
22.10.2004 22:04:39
Martin
Aber wie
AW: Begriff suchen
Uwe
Hallo,
ja, es gibt den ganzen Begriff schon einmal. Hier mal der agnze Code.
Ich durchlaufe mehrere tabellenblätter. Aus denen kopiere ich BEgriffe, die in Zeile 11 bis 50 stehen in ein Statistikblatt. In den Tabellenblättern können Begriffe mehrfach vorkommen, sollen aber in das Statistikblatt nur einmal eingetragen werden und dafür eine 2 hinter den Begriff geschrieben werden, der mehrfach vorkommt.

Sub suchen()
For ws = 1 To Sheets.Count
If Sheets(ws).Name = "Statistik" Then ws = ws + 1
For i = 11 To 50
With Sheets("Statistik")
Begriff = Sheets(ws).Cells(i, 3)
Set c = .Columns(1).Find(What:=Begriff, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
lz = .Cells(Rows.Count, 1).End(xlUp).Row
If lz = 6 Then lz = lz + 5
.Cells(lz + 1, 1) = Begriff
.Cells(lz + 1, 5) = 1
'Cells(11, 5) = x
'x = x + 1
'Else
'c(1, 5) = c(1, 5) + 1
End If
End With
Next i
Next ws
End Sub

Anzeige
AW: Begriff suchen
22.10.2004 22:09:03
Hajo_Zi
Hallo Uwe,
ich vermute mal die Datei wäre günstiger gewesen?
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.


AW: Begriff suchen
Uwe
Hallo,
die Arbeitsmappe ist über 500k groß. Die kann man hier nicht uploaden.
Gruß
UWe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige