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

Bereich richtig löschen

Bereich richtig löschen
09.01.2008 14:34:00
maruseru
Hallo werte Profis
ich kopiere aus Datei A von der Tabelle 'Alt' alle Zeilen mit dem Wert "ja" in Spalte A nach Datei B in Tabelle 'Neu'. Dabei werden zuerst alle alten Daten in der Tabelle 'Neu' gelöscht mit

Sub löschen()
Rows("2:65536").Delete
End Sub


Dies funktioniert alles einwandfrei. Nun habe ich festgestellt, das der Bereich jedoch immer noch viel grösser ist in Tabelle'Neu' als die eingefügten Zeilen. Dadurch werden mir beim Ausführen des Serienbriefes in Word viele leere Datensätze angezeigt.
Wie kann ich den Bereich ab A2 richtig löschen?
Danke und Gruss
Maruseru

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich richtig löschen
09.01.2008 14:41:54
FM
hmm wenn du die Zeilen ab 2 - 65k löscht werden diese doch von excel neu erstellt nur leer. Könnte mir denke das ist das Problem

AW: Bereich richtig löschen
09.01.2008 15:38:10
c0bRa
Hio...
Probier mal:
VBA-Code aus Microsoft Excel Objekt Tabelle1:
Option Explicit
Public Sub löschen()
    Rows("2:65536").Delete Shift:=xlUp
End Sub

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Bereich richtig löschen
09.01.2008 15:51:33
Jan
Hi,
die Datei muss gesoeichert werden, damit das wirksam wird,

Sub löschen()
Rows("2:65536").Delete
Thisworkbook.Save
End Sub


mfg Jan

AW: Bereich richtig löschen
09.01.2008 16:16:00
Reinhard
Hallo Jan,
warum muß da gespeichert werden?

Sub tt()
Range("A1") = "gg"
Range("A2") = "gg"
Range("A3") = "gg"
Rows("2:65536").Delete
MsgBox ActiveSheet.UsedRange.Cells.Count 'zeigt 1 an
End Sub


Gruß
Reinhard

AW: Bereich richtig löschen
09.01.2008 16:20:45
maruseru
Hallo und Danke an Alle die mir geschrieben haben. Mit

Sub Leerzellen_Löschen()
Worksheets("Neu").UsedRange.SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
End Sub


konnte ich das Problem lösen.
Gruss
Maruseru

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige