Selection von Tabellenzeilen

24/09/2008 - 13:19 von Hermann Klopsch | Report spam
Hallo,


Ich habe folgendes Makro gebastelt:

Sub Makro3()
'
' Makro3 Makro
' Makro am 24.09.2008 von mir aufgezeichnet
'
' Tastenkombination: Strg+z
'
Range("E16:I18,E20:I20,E27:I27,E31:I33").Select
' Range("testbereich").Select
Selection.Copy
Sheets("Tabelle2").Select
' in M10 steht die erste leere Zeile am Ende der Tabelle
Range("indirect(M10)").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
' hier geht´s weiter
Range("F36").Select
Application.CutCopyMode = False
End Sub

Nun möchte ich aber in Zeile 1 aus der Tabelle "testbereich"
jedesmal nur die Zeilen/Bereiche selectieren,
die in der Spalte "Stück" ungleich 0 sind.

Kann mir geholfen werden?

(Win2000, Excel2002 und ich als Anfànger)


Hermann
 

Lesen sie die antworten

#1 Claus Busch
24/09/2008 - 13:33 | Warnen spam
Hallo Hermann,

Am Wed, 24 Sep 2008 13:19:04 +0200 schrieb Hermann Klopsch:

Nun möchte ich aber in Zeile 1 aus der Tabelle "testbereich"
jedesmal nur die Zeilen/Bereiche selectieren,
die in der Spalte "Stück" ungleich 0 sind.



ich hoffe, dass ich dich richtig verstanden habe. Mache mal einen Test
mit folgendem Code (darin musst du noch die Spalte mit der Stückzahl
anpassen):

LRow = Sheets("Tabelle2").Range("M" & Rows.Count).End(xlUp).Row
With Sheets("Tabelle1")
For Each rngZeile In .Range("testbereich").Rows
'Hier die Spalte mit der Stückzahl anpassen
If .Cells(rngZeile.Row, "I") <> 0 Then
rngZeile.Copy _
Destination:=Sheets("Tabelle2").Range("M" & LRow)
LRow = LRow + 1
End If
Next
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen