Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

word VBA-Problem... (bitte nicht hauen...)

word VBA-Problem... (bitte nicht hauen...)
joerg
Hallo,
Ich weiss ja, dass das hier ein Excel-Forum ist, aber ich dachte, vielleicht, wo ihr doch alle so VBA-Profis seid... Müsste eigentlich (hoffentlich) eine simple Frage sein: Ich habe eine Suche, mit selection.find, und müsste diese so hinbekommen, dass nur in den nächsten x Zeilen gesucht wird...?
Falls jetzt alle denken: 'Frechheit, eine Word-Frage hier in unserem schönen Excel-Forum...': Wisst ihr zufällig ein gutes Word-Forum?
Danke, beste Grüsse und schönes WE,
Jo

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

Betreff
Benutzer
Anzeige
AW: word VBA-Problem... (bitte nicht hauen...)
13.02.2010 12:27:17
fcs
Hallo Joe,
hier ein Beispiel. 
'Erstellt unter Word 2007
Sub Find_something_in_next_10_Lines()
' FindSomething Makro
' Suche in den nächsten X Zeilen
Dim Zeilen As Long, sFind As String, vBefehl
Zeilen = 10
sFind = InputBox(Prompt:="Suchbegriff?" & vbLf & _
"Wildcards ""?"" und ""*"" können verwendet werden.", _
Title:="Suche in den nächsten " & Zeilen & " Zeilen", _
Default:=Selection.Find.Text)
If sFind  "" Then
Weitersuchen:
'Selection um Zeilenzahl erweitern
Selection.MoveDown Unit:=wdLine, Count:=Zeilen, Extend:=wdExtend
'Such-Parameter einstellen
With Selection.Find
.ClearFormatting 'Format-Sucheinstellungen zurücksetzen
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'Suche ausführen
vBefehl = Selection.Find.Execute(Findtext:=sFind)
If vBefehl = False Then
If MsgBox(Prompt:="""" & sFind & """ nicht gefunden", _
Buttons:=vbInformation + vbRetryCancel, _
Title:="Suche in den nächsten " & Zeilen & " Zeilen") = vbRetry Then
'Suchbereich um weitere Zeilen erweitern
GoTo Weitersuchen
End If
End If
End If
End Sub

Weiteres Forum: http://www.wer-weiss-was.de/app/board/threads/155
Gruß
Franz
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige