Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1100to1104
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

Makro bleibt stehen, weil Begriff nicht gefunden

Makro bleibt stehen, weil Begriff nicht gefunden
Nicole
Guten Morgen,
bin VBA Anfänger und stecke mal wieder fest:
in einer Tabelle suche ich in Spalte A Zelle, in denen "XYZ" steht. Dann wird die ganze Zeile markiert und ausgeschnitten. Jetzt gibt es aber Tabellen in denen "XYZ" kein einziges Mal vorkommt. Dann stoppt das Makro und gibt mit die Fehlermeldung: "Index außerhalb des gültigen Bereichs".
Hier der Code:
Columns("A:A").Select
Selection.Find(What:="XYZ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Was kann ich tun, damit das Makro weiterläuft?
Schon mal vielen, vielen Dank!!
LG
Nicole

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

Betreff
Benutzer
Anzeige
AW: Makro bleibt stehen, weil Begriff nicht gefunden
09.09.2009 09:20:24
ptonka
Hallo Nicole,
versuche es mal mit On error - also so:
Columns("A:A").Select
on error goto ende
Selection.Find(What:="XYZ", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -5).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
ende:
Gruß,
Ptonka
Hat funktioniert!! DANKE!!
09.09.2009 09:26:04
Nicole
AW: Makro bleibt stehen, weil Begriff nicht gefunden
09.09.2009 09:21:08
Tino
Hallo,
hier mal ein Beispiel
Sub Cut_Row()
Dim rZelle As Range
Set rZelle = Columns(1).Find(What:="XYZ", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not rZelle Is Nothing Then 'Zelle gefunden?
'Zeile Ausschneiten und eine Zeile darunter einfügen
rZelle.EntireRow.Cut Destination:=rZelle.Offset(1, 0)
End If
End Sub
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige