AW: Blatt kopieren aber Zeilen auslassen
24.03.2005 14:02:01
mykey
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