Herbers Excel-Forum - das Archiv
Blatt kopieren aber Zeilen auslassen
Betrifft: Blatt kopieren aber Zeilen auslassen
von: mykey
Geschrieben am: 24.03.2005 11:44:21
Fröhliche Ostergrüsse,
kann mir jemand sagen wie man beim Kopieren eines Datenblattes in eine neue Excelmappe Zeilen automatisch nicht mitkopiert ?
Gibt es dafür einen Befehl oder so ?
Excel Tabelle ist angefügt.
Die Datei https://www.herber.de/bbs/user/20121.xls wurde aus Datenschutzgründen gelöscht
Freundlicher Gruß
Mykey
Betrifft: AW: Blatt kopieren aber Zeilen auslassen
von: EtoPHG
Geschrieben am: 24.03.2005 13:25:25
Hallo mykey,
https://www.herber.de/bbs/user/20125.xls
Nach dem Knopfdruck Ctrl-C in neuer Tabelle Ctrl-V
Gruss Hansueli
Betrifft: AW: Blatt kopieren aber Zeilen auslassen
von: mykey
Geschrieben am: 24.03.2005 14:02:01
Hi Hansueli,
Erstmal schönen Dank ! Es funktioniert !
:D
Allerdings ist das nur ein Beispiel.
Im echten Dokument sind mind. 300 Datensätze eingetragen und es kommen immer mehr hinzu.
Wie kann man denn angeben, dass das Makro die betreffenden Spalten bis zum letzten Eintrag markiert ?
Das mit den Nullwerten ist soweit ok.
Könntest Du mir erklären was dieses Makro im einzelnen bewirkt ?
________________________________________________________________________________________
----------------------------------------------------------------------------------------
Private Sub cmdSelect_Click()
Dim sSelection As String
Dim bExtendSelect As Boolean
Dim iRow As Integer
sSelection = "A5:H5" ' Titel selektieren
ixRow = 5 ' Ab dieser Zeile Werte testen
bExtendSelect = True
Do While bExtendSelect
If Val(Cells(ixRow, 4).Value) + _
Val(Cells(ixRow, 5).Value) + _
Val(Cells(ixRow, 6).Value) + _
Val(Cells(ixRow, 7).Value) + _
Val(Cells(ixRow, 8).Value) <> 0 Then sSelection = sSelection & ", A" & Trim(Str(ixRow)) & ":H" & Trim(Str(ixRow))
ixRow = ixRow + 1
If IsEmpty(Cells(ixRow, 4)) Then bExtendSelect = False
Loop
Range(sSelection).Select
End Sub
Wäre schön wenn Du mir kurz erläuterst was die Befehle bedeuten.
mykey
Betrifft: AW: Blatt kopieren aber Zeilen auslassen
von: EtoPHG
Geschrieben am: 24.03.2005 14:13:25
Hallo mykey,
Das Makro ist nicht auf eine Anzahl Zeilen beschränkt !
________________________________________________________________________________________
Es macht folgendes:
sSelection = "A5:H5" startet mit dem selektieren dieses Zellbereichs (Titel)
Do While: Ab Zeile 5 zählt es die NUMERISCHEN Werte der Spalten 4-8 (D..H) zusammen und erweitert den Selektions-Range An ... Hn, wenn der Wert nicht Null (kleiner oder grösser Null) ergibt.
If IsEmpty(Cells(ixRow, 1)): Dies wiederholt es bis es eine vollständig leere Zelle in der Spalte A antrifft.
Range(sSelection).Select: Am Schluss wird der Bereich selektiert.
Gruss Hansueli
Betrifft: AW: Blatt kopieren aber Zeilen auslassen
von: mykey
Geschrieben am: 24.03.2005 17:05:59
Jau !
Vielen Dank !
Jetzt verstehe ich das ganze. ;D
Und wie kann ich das für die Spalten B2,F2,T2,W2,X2,BA2:BD2,BG2:BO2 anpassen ???
Geht das ?