Begriff suchen

Forumthread: 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

AW: Begriff suchen

22.10.2004 22:00:45

Hajo_Zi
AW: Begriff suchen

22.10.2004 22:04:39

Martin
AW: Begriff suchen

Uwe
AW: Begriff suchen

22.10.2004 22:09:03

Hajo_Zi
AW: Begriff suchen

Uwe

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

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)

Forumthread: Begriff suchen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread