Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige