Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile löschen

Zeile löschen
28.10.2004 08:15:49
fritz
Hallo!!
Möchte eine Zeile über Makro löschen.
Ich habe ein Makro mit fixer Zeile 23:23 einfacherhalber erstellt,
wie kann ich nundie in A1 ausgespuckte Zeile einbauen.
A1 ist eine Zahl und gibt anwelche Zeile gelöcht werden muss.
Vielen, vielen Dank im voraus Fritz
A1=VERGLEICH(F2;A1:A100;0)hier bekomme ich die Zeile raus welchezu löschen ist

Sub test()
' test Makro
' Makro am 28.10.2004 von Fritz aufgezeichnet
Rows("23:23").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Einfach mit Rows([A1]).Delete oT
28.10.2004 08:22:47
Worti
AW: Einfach mit Rows([A1]).Delete oT
28.10.2004 08:41:12
Fritz
Kleine Rückfrage,
das Makro passt super, genial.
Es kann aber sein, dass Ergebnis von A1 = #NV ist.
Wie kann ich einbauen, dass dann Meldung "gibt es nicht" kommt, sonst
kommt das graue Feld mit Fehlermeldung.
Danke Fritz


Sub Zeilelöschen()
' Zeilelöschen Makro
' Makro am 28.10.2004 von Fritz aufgezeichnet
Sheets("Tabelle11").Select
Rows([A1]).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

AW: Einfach mit Rows([A1]).Delete oT
28.10.2004 09:05:34
Worti
Hallo Fritz,
das geht so:

If Application.WorksheetFunction.IsNA([A1]) Then
MsgBox "Sverweis greift ins leere!"
Else
Rows([A1]).Delete
End If

Worti
Anzeige
AW: Einfach mit Rows([A1]).Delete oT
28.10.2004 09:51:54
Fritz
Hallo
Fehlermeldung passt
jedoch wird nur diese Zelle gelöscht,nicht aber die ganze Zeile.
Danke Fritz


Sub Zeilelöschen()
' Zeilelöschen Makro
' Makro am 28.10.2004 von Fritz aufgezeichnet
Sheets("Tabelle11").Select
If Application.WorksheetFunction.IsNA([F9]) Then
MsgBox "Sverweis greift ins leere!"
Else
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
End Sub

AW: Einfach mit Rows([A1]).Delete oT
31.10.2004 19:34:23
andre
... deswegen solltest Du auch die Rows.. löschen
in der Formel die #NV liefert:
28.10.2004 09:05:51
Magic
Hallo Fritz,
wenn Du deine Formel aus A1 erweiterst mit:
wenn(istfehler(deineFormel);"gibt es nicht";deineFormel)
werden alle Fehler abgefangen.
wenn nur #NV abgefangen werden soll:
wenn(istnv(deineFormel).......

Gruß
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige