Liste durchlaufen und "unbekannte" Begriffe...

Hallo,
ich bin ein Anfänger habe folgendes Problem. Ich habe eine Arbeitsmappe mit ca 100 Tabellenblättern. In diesen Blättern habe ich in der Spalte C, Reihe 10-50 Begriffe stehen. Diese können sich von Tabellenblatt zu Tabellenblatt wiederholen. Nun wollte ich mal sehen, ob es möglich ist, die Tabellenblätter zu durchlaufen, die Begriffe "auszulesen" und in ein anderes Tabellenblatt (Übersicht) zu schreiben. Wenn dann z.b.die ersten drei Tabellenblätter durchlaufen wurden und schon Begriffe in der Übersicht stehen und in tabellenblatt 4 ein Begriff steht, der schon einmal in der Übersicht steht, soll er nicht noch einmal übertragen werden. Eventuell könnte man dann hinter den Begriff eine 2 schreiben, dass er doppelt da ist.
Würd mich freuen, wenn mir jemand weiter helfen könnte.
Gruß
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ohne_doppelt() Dim i As Integer Dim zelle As Range Dim bereich As Range For i = 2 To Worksheets.Count For Each zelle In Worksheets(i).Range("C10:c50") Set bereich = Worksheets("Übersicht").Range("A:A") If WorksheetFunction.CountIf(bereich, zelle.Value) = 0 Then _ Cells(Range("a65536").End(xlUp).Row, 1).Offset(1, 0).Value = zelle.Value Next Next End Sub

Sub unbekannte_Begriffe() For ws = 1 To Sheets.Count If Sheets(ws).Name = "Übersicht" Then ws = ws + 1 For i = 10 To 50 With Sheets("Übersicht") 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 .Cells(lz + 1, 1) = Begriff .Cells(lz + 1, 2) = 1 Else c(1, 2) = c(1, 2) + 1 End If End With Next i Next ws End Sub


Sub test
Hallo,
ich habe mal einwenig mit dem Code gespielt. Ich habe das Problem, dass doppelt vorkommende Begriffe mehrfach in die Statistik übertragen werden un dadurch auch hinter den Mehrfachvorkommenden Titel keine 2 geschrieben wird.
Würd mch freuen, wenn ihr mal drüber schauen könntet.
Gruß
Uwe
Sheets("Statistik").Select
Range("A12:E" & Range("E65536").End(xlUp).Row).Select
Selection.ClearContents
Cells(12, 1).Select
x = 1
For ws = 1 To Sheets.Count
If Sheets(ws).Name = "Statistik" Then ws = ws + 1
For ii = 11 To 50
With Sheets("Statistik")
Begriff = Sheets(ws).Cells(ii, 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
.Cells(lz + 1, 1) = Begriff
.Cells(lz + 1, 5) = 1
Else
'x = x + 1
'.Cells(lz + 1, 5) = 1
c(10, 5) = c(10, 5) + 1
End If
End With
Next ii
'End If
Next ws
'Hier wird die Anzahl der Titel ermittelt
Anzahl = WorksheetFunction.CountA(Columns("A:A")) - 4
Cells(6, 1).Value = Anzahl
End Sub

Beliebteste Forumthreads (12 Monate)

Liste durchlaufen und "unbekannte" Begriffe...

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste durchlaufen und "unbekannte" Begriffe...

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread