Office: Kopieren bestimmter Zeilen nach Kriterium in einer Spalte

Hallo,

ich habe eine weiteres Probelm.
Ich habe eine Tabelle die einen Export aus einer Datenbank in eine Exceldatei schreibt. Nachdem diese Datei entsprechend formatiert wurde sollen die Datnesätze (Zeilen) zunächst nach zwei Gesichtspunkten in 2 Arbeitsblätter kopiert werden und somit getrennt. (Der Ursprungsexport in Arbeitsblatt1 soll dabei nicht verändert werden.)

Dieses Modul schaut nach ob in "Tabelle1" in Spalte 12 eine Telefonnummer steht und wenn ja, dann kopiert es die komplette Zeile in "Tabelle3"

Code:

Sub TrennungMitTelefon()
Dim WB As Workbook, WSQ As Worksheet, CQ As Range, WSZ As Worksheet, CZ As Range, Zähler As Long

Set WB = ActiveWorkbook: Set WSQ = WB.Sheets(1): Set CQ = WSQ.Cells
Set WSZ = WB.Sheets(3): Set CZ = WSZ.Cells

For Zähler = 2 To CQ(65536, 12).End(xlUp).Row
    If IsEmpty(CQ(Zähler, 12)) = True Then GoTo Weiter
    If CQ(Zähler, 12).Value <> 0 Then
        WSQ.Rows(Zähler).Copy: WSZ.Rows(CZ(65536, 12).End(xlUp).Row + 1).PasteSpecial xlPasteAll
    End If
Weiter:
Next Zähler
End Sub

Zu diesem Modul möchte ich jetzt das Pendant haben, daher dachte ich dreh ich die IF Geschichten einfach rum

Code:

Sub TrennungMitTelefon()
Dim WB As Workbook, WSQ As Worksheet, CQ As Range, WSZ As Worksheet, CZ As Range, Zähler As Long

Set WB = ActiveWorkbook: Set WSQ = WB.Sheets(1): Set CQ = WSQ.Cells
Set WSZ = WB.Sheets(3): Set CZ = WSZ.Cells

For Zähler = 2 To CQ(65536, 12).End(xlUp).Row
    If CQ(Zähler, 12).Value <> 0 Then GoTo Weiter
    If IsEmpty(CQ(Zähler, 12)) = True Then 
        WSQ.Rows(Zähler).Copy: WSZ.Rows(CZ(65536, 12).End(xlUp).Row + 1).PasteSpecial xlPasteAll
    End If
Weiter:
Next Zähler
End Sub

Die Telefonnummern sind meist in der Form (0111/00000) in der Spalte angegeben und als "Standard" formatiert.

Mein Problem ist jetzt, das der obere Code wunderbar funktioniert und genau das macht was er soll. Der untere Code funktioniert jedoch überhaupt nicht ... wo liegt mein Denkfehler? Kann mir bitte jemand helfen!

 

Hi,

du ermittelst in beiden Fällen in der Kopie-Tabelle die letzte belegte Zelle in Spalte 12 - im 1. Fall ist das in Ordnung, weil in der Kopie diese Spalte ausgefüllt ist, da eine Telefonnummer eingetragen ist. Im 2. Fall ist diese Spalte in der Kopie ja immer leer (da keine Telefonnummer vorhanden), folglich wird die letzte belegte Zelle immer als 2 festgestellt. Du musst dir für die Ermittlung der letzten belegten Zelle also eine Spalte aussuchen, in der generell alle Zellen gefüllt sind.

Bis später,
Karin

 

Vielen Dank!

Wenn man keine Ahnung hat von VB fallen einem solche Sachen eben nicht auf. :-(