Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wort suchen

Forumthread: Wort suchen

Wort suchen
06.12.2004 08:56:17
Achim
Hallo excel Freunde
Wer kann helfen?
Ich möcht emit einem Makro folgende Aufgabe lösen:
Suche in A1:AM1 nach dem Begriff "wnr" und
kopiere dann diese spalte bis 200 nach
AO1
Schon mal Danke
Gruß Achim H.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wort suchen
WernerB.
Hallo Achim,
wie gefällt Dir das?

Sub Achim()
Dim SuBe As Range
Dim s As String
Dim laR As Long
Application.ScreenUpdating = False
s = "wnr"
laR = Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = Range("A1:AM1").Find(What:=s, _
After:=Range("AM1"), LookAt:=xlWhole)
If Not SuBe Is Nothing Then
Range(Cells(1, SuBe.Column), Cells(200, SuBe.Column)).Copy
Range("AO1").PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Wort suchen
06.12.2004 15:01:35
Achim
Hallo wernerb. u. boris
beide versionen funzen danke für die schnelle hilfe!!!
Gruß
Achim H.
AW: Wort suchen
Boris
Hi Achim,
wenn du die Formate nicht brauchst, dann ist das Kopieren auch nicht nötig. Falls doch: Siehe Werner.
Option Explicit

Sub machs()
Dim C As Range, bolWhere As Byte
bolWhere = 2 '1=xlWhole, 2=xlPart
Set C = Range("a1:m1").Find("wnr", lookat:=bolWhere)
If Not C Is Nothing Then
[ao1:ao200] = Range(Cells(1, C.Column), Cells(200, C.Column)).Value
End If
End Sub

Grüße Boris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige