Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

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
Anzeige
AW: Daten suchen und in eine neues sheet eintragen
09.02.2006 13:57:43
Claudia
Vielen Dank für deine Hilfe.
MFg
Claudia
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige