![]() |
Betrifft: Löschen eines Bereiches
von: Thomas3
Guten Morgen,
manchmal stehe ich dem Guten einfach im Wege und denke mir, Thomas, das soll nicht sein. Und trotzdem fuchst mich das tierisch, warum das nicht geht...
Aus einer Tabelle heraus soll in der gleichen Datei in einer anderen Tabelle der Bereich ab der Zeile 2 bis zur letzten beschriebenen Zeile gelöscht werden. Kein Problem...
lzeile = Thisworkbock.Sheet("Liste").cells(Rows.Count, 16).End(xlUp).Row
ThisWorkbook.Sheet("Liste").range(Cells(2,1),Cells(lzeile,16)).ClearContens
Wunderbar. Passt.
Nur, wenn in dem Bereich nichts steht, dann läuft der Befehl ins Leere und ich bekomme eine Fehlermeldung. Will ich nicht. Also schreibe ich :
lzeile = Thisworkbock.Sheet.("Liste").cells(Rows.Count, 16).End(xlUp).Row
If lzeile = 1 then
MsgBox "Da steht nix mehr"
Exit sub
else : ThisWorkbook.Sheet("Liste"). Range(Cells(2,1),Cells(lzeile,16)).ClearContens
End if
Und - Hurra - Ich bekomme eine Fehlermeldung bei dem ClearContens.
Kann mir einer sagen warum ?
Liebe Grüße
Thomas
![]() |
Betrifft: AW: Löschen eines Bereiches
von: UweD
Geschrieben am: 03.07.2008 08:31:01
Hallo
sind einige schreibfehler drin....
so wäre es richtig
lzeile = ThisWorkbook.Sheets("Liste").Cells(Rows.Count, 16).End(xlUp).Row
If lzeile = 1 Then
MsgBox "Da steht nix mehr"
Exit Sub
Else: ThisWorkbook.Sheets("Liste").Range(Cells(2, 1), Cells(lzeile, 16)).ClearContents
End If
Gruß UweD
![]() |
Betrifft: AW: Löschen eines Bereiches
von: Thomas3
![]() |
Betrifft: AW: Löschen eines Bereiches
von: UweD
Geschrieben am: 04.07.2008 08:27:35
Hallo nochmal
Also. Der abgedruckte Code von mir funktioniert... Hast du den mal mit copy/paste probiert??
=====> Contents
Gruß UweD
![]() |
Betrifft: AW: Löschen eines Bereiches
von: thomas3
![]() |
Betrifft: AW: Löschen eines Bereiches
von: Reinhard
Geschrieben am: 05.07.2008 11:16:22
Hi Thomas,
kopier mal deinen Komplettcode der Sub hier rein. Hat das Blatt Blattschutz?
Gruß
Reinhard
![]() |
Betrifft: AW: Löschen eines Bereiches
von: Thomas3
Sub daten_Firmenübersicht_löschen()
Dim lzeile As Integer
Application.ScreenUpdating = False
lzeileTW = ThisWorkbook.Sheets("Firmenübersicht").Cells(Rows.Count, 1).End(xlUp).Row
If lzeile = 1 Then
MsgBox "In der Tabelle 'Firmenübersicht' sind keine Daten mehr", _
vbInformation, "Kleiner Hinweis"
Else: ThisWorkbook.Sheets("Firmenübersicht").Range(Cells(2, 1), Cells(lzeile, 16)). _
ClearContents
End If
Application.ScreenUpdating = True
End Sub
Version 2
Sub daten_Firmenübersicht_löschen()
Dim lzeile As Integer
Application.ScreenUpdating = False
Sheets("Firmenübersicht").Activate
lzeile = Cells(Rows.Count, 1).End(xlUp).Row
If lzeile = 1 Then
MsgBox "In der Tabelle 'Firmenübersicht' sind keine Daten mehr", _
vbInformation, "Kleiner Hinweis"
Else: Range(Cells(2, 1), Cells(lzeile, 16)).ClearContents
End If
Sheets("Schaltflächen").Activate
Application.ScreenUpdating = True
End Sub
![]() |
Betrifft: AW: Löschen eines Bereiches
von: Reinhard
Geschrieben am: 06.07.2008 12:32:32
Hi Thomas,
schreib mal
Option Explicit
zuoberst in das Modul, dann lass nochmal Code 1 laufen, war es das?
Gruß
Reinhard
![]() |
Betrifft: AW: Löschen eines Bereiches
von: thomas3
![]() |