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

Daten suchen und in eine neues sheet eintragen

Daten suchen und in eine neues sheet eintragen
09.02.2006 11:59:43
Claudia
Hallo Zusammen,
Folgendes Problem:
ich möchte in der Spalte A nach einem bestimmten begriff suchen (mehrfach vorhanden). Dieser soll daraufhin gezählt werden und die ersten 10 Daten sollen in eine neues Sheet kopiert werden.
Ich hoffe ihr könnt mir helfen.
Vielen Dank schon mal
Claudia

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

Betreff
Datum
Anwender
Anzeige
AW: Daten suchen und in eine neues sheet eintragen
09.02.2006 13:34:33
eugen
hi
der macro sollte reichen
Public

Sub t()
Dim i, row, count As Integer
row = 1
count = 0
szBegriff = "Anna"
For i = 1 To 65536
If ActiveSheet.Cells(i, 1).Value = "" Then Exit For
If ActiveSheet.Cells(i, 1).Value = szBegriff Then
count = count + 1
If count <= 10 Then
Sheets(2).Cells(row, 1).Value = szBegriff
row = row + 1
End If
End If
Next i
MsgBox Str(count) + " Vorkommen gefunden !"
End Sub

mfg
AW: Daten suchen und in eine neues sheet eintragen
09.02.2006 13:57:43
Claudia
Vielen Dank für deine Hilfe.
MFg
Claudia
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige