Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable + .EntireRow.Delete

variable + .EntireRow.Delete
31.03.2004 22:21:42
Ralf
Guten Abend ich hoff ich treffe hier noch ein paar an , zu später Stund.
Ich habe eine Variable deklariert.
Suchzeile = Workbooks("Datenblatt.xls").Sheets("Tabelle1").Range("d" & zz)
Jetzt möchte ich diese wie folgt benutzen..
Suchzeile .EntireRow.Delete
Die Wörter mit einem & zu verbinden schlug leider fehl ;)
aber ich hoffe ihr könntet mir hier weiter helfen
Euer Ralf

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable + .EntireRow.Delete
31.03.2004 22:23:55
Josef Ehrensberger
Hallo Ralf!
Richtig deklarieren, dann geht's!


Dim Suchzeile As Range
Set Suchzeile = Workbooks("Datenblatt.xls").Sheets("Tabelle1").Range("d" & zz)
Suchzeile.EntireRow.Delete

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: variable + .EntireRow.Delete
31.03.2004 22:39:33
Ralf
Besten Dank :)
die Lösung kenn ich noch
4posts weiter unten :-)
Was das "As Range" alles kann.
Unglaublich :D
Danke für die Rückmeldung! o.T.
31.03.2004 22:48:41
Josef Ehrensberger
Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


AW: variable + .EntireRow.Delete
31.03.2004 22:49:17
Ralf
leider tuts es noch nicht
"Objektdefinierter- oder Anwendungsfehler"...
kann das mit dem zz zusammenhängen?
Dim Suchzeile As Range
Dim zz As Double
Set Suchzeile = Workbooks("Datenblatt.xls").Sheets("Import_temp").Range("d" & zz)
AW: variable + .EntireRow.Delete
31.03.2004 22:50:59
Josef Ehrensberger
Hallo Ralf!
Die Variable "zz" musst du vorher natürlich füllen,
sonst muss ja eine Fehlermeldung kommen!

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: variable + .EntireRow.Delete
31.03.2004 22:53:18
Ralf
Die wird / muss aber erst nachher gefüllt werden.. gucks dir mal an
Dim Suchzeile As Range
Dim zz As Double
Set Suchzeile = Workbooks("Datenblatt.xls").Sheets("Import_temp").Range("d" & zz)
Suchzeile.EntireRow.Delete
Application.ScreenUpdating = False
For zz = Spaltenende To Spaltenanfang Step -1
If Suchzeile <> "test" Then
Suchzeile.EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Mfg Ralf
AW: variable + .EntireRow.Delete
31.03.2004 23:02:56
Josef Ehrensberger
Hallo Ralf!
Dann kann es nicht funktionieren!
Probier's mal so!


Sub test()
Dim lngRow As Long   'Zeilenzähler
Dim lngE As Long     'Spaltenende
Application.ScreenUpdating = False
   With Workbooks("Datenblatt.xls").Sheets("Import_temp")
   lngE = IIf(IsEmpty(.Range("D65536")), .Range("D65536").End(xlUp).Row , 65536)
   'letzte gefüllte Zeile in Spalte "D" ermitteln
   Application.ScreenUpdating = False
      For lngRow = lngE To 1 Step -1
         If .Cells(lngRow, 4) <> "test" Then
         .Cells(lngRow, 4).EntireRow.Delete
         End If
      Next
   End With
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: variable + .EntireRow.Delete
31.03.2004 23:05:16
Ralf
Besten dank werd es morgen in der Firma ausprobieren.
Muss mir jetzt erstmal eine runde schlaf gönnen.
Aber besten dank schon mal für deine bemühungen
mach weiter so :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige