Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei suche per vba

Hilfe bei suche per vba
20.01.2005 12:52:29
Marc
Hallo zusammen,
mit dem uneren Code durchsuche ich ein Tabellenblatt (Statistik) nach einem betsimmten begriff. Dabei durchsuche ich den gesamten genutzten Bereich des Tabellenblattes. Nun würde ich gere allerdings nur eine Spalte durchsuchen lassen, aber irgendwie komme ich nicht drauf, wie ich das anstellen könnte.
Wäre toll, wenn mir jemand helfen könnte.
Gruß
Marc

Private Sub Suche
For ws = 1 To Sheets.Count
If Sheets(ws).Name <> "Übersicht" And Sheets(ws).Name <> "CD-Liste" Then
If Sheets(ws).Name = "Statistik" Then ws = ws + 1
For i = 11 To 50
With Sheets("Statistik")
Begriff = Sheets(ws).Cells(i, 3)
With Sheets("Statistik").UsedRange
Set c = .Find(What:=Trim(Begriff), LookIn:=xlValues, LookAt:=xlWhole)
End With
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
Else
If c <> "" Then
v = c.Row
x = Cells(v, 5).Value
x = x + 1
Cells(v, 5).Value = x
End If
End If
End With
Next i
End If
Next ws
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei suche per vba
20.01.2005 13:26:08
Harald
Hallo Marc,
ungetestet: ändere mal
With Sheets("Statistik").usedrange in
With Sheets("Statistik").range("D:D") Spalte natürlich auf deinen gewünschte Spalte anpassen.
Gruß
Harald
Vielen Dank!
Marc
Hallo,
vielen Dank. So funktioniert es.
Gruß
Marc

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige