Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1416to1420
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
Inhaltsverzeichnis

VBA Suchen

VBA Suchen
28.03.2015 08:46:29
Jürgen
Hallo und guten Morgen,
wie kann man per VBA in Spalte F nach dem Wort: „Gebäude“ suchen, wenn gefunden, dann sollen alle Zellen unter dem gefundenen Wert „Gebäude“ 5 Spalten nach rechts übertragen werden., bis in der Spalte F entweder das Wort: „Fahrzeuge“ oder „Immobilien“ oder „Holding“ gefunden wird.
An Hand einer MusterDatei wird das Beispiel nochmal verdeutlicht.
https://www.herber.de/bbs/user/96688.xls
Über Lösungsvorschläge wäre ich sehr dankbar
Mit freundlichen Grüßen
DU Jürgen

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Suchen
28.03.2015 14:02:17
Michael
Hallo Jürgen,
was heißt DU?
Mit folgendem Makro:
Option Explicit
Sub kopieren()
Dim i, von, bis As Long
Dim suchBegriff As String
Dim c As Variant
suchBegriff = "Gebäude"
Set c = Range("F..F").Find(What:=suchBegriff, Lookat:=xlWhole)
If Not c Is Nothing Then
von = c.Row + 1
i = 0
While Range("F" & von + i)  "Immobilien" _
And Range("F" & von + i)  "Holding" _
And Range("F" & von + i)  "Fahrzeuge"
' falls Begriff mit / wie in Tabelle die drei Bedingungen
' ersetzen durch jeweils:
' InStr(Range("F" & von + i), "Immobilien") > 0
i = i + 1
Wend
bis = von + i - 1
Range("K" & von, "K" & bis).Value = Range("F" & von, "F" & bis).Value
End If
End Sub
Datei anbei: https://www.herber.de/bbs/user/96690.xls
Happy Exceling,
Michael

Anzeige
AW: VBA Suchen
28.03.2015 19:07:34
Jürgen
Hallo Michael,
DU steht für Duisburg
herzlichsten Dank für Deine Bemühungen
es funktioniert wunderbar
wünsche noch ein schönes WE
Gruß
DU Jürgen

Das hört man gerne und
30.03.2015 15:59:46
Michael
vielen Dank für die Rückmeldung!
Happy Exceling,
Michael
P.S.: aha! hier spricht Nürnberg...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige