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

Makro 2

Makro 2
08.02.2003 15:09:58
Peter
Hallo

Ich bin Anfänger....
ich habe ich Tab!1A1 die Zahl 10
In Tab2 steht diese irgendwo unter A:A, nun soll die ganze Zeile
in Tab2 gelöscht werden wo der wert 10 steht geht das????

Gruß Peter




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

Betreff
Datum
Anwender
Anzeige
Makro 2
08.02.2003 15:37:15
Peter

Hallo Nochmal,

ich komm hier nicht ganz weiter:

Sub DeleteIfG()
Dim var As Variant
Dim iRow As Integer, iRowL As Integer

Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = ActiveSheet
Set ws2 = Worksheets("Tabelle2")

iRowL = Cells(ws2.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match(ws1.Cells = ("A1"), ws2.Rows(iRow), 0)
If Not IsError(var) Then
ws2.Rows(iRow).Delete
End If
Next iRow
End Sub

Gruß Peter


Anzeige
Re: Makro 2
08.02.2003 17:39:13
Hajo_Zi

Hallo Peter

ein wenig schneller geht es mit Find

Gruß Hajo

Re: Makro 2
08.02.2003 18:32:32
Peter

Hallo Hajo,

vielen DANK, das hilft mir sehr viel weiter.

Gruß Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige