Nur Werte aus Tabelle kopieren zum zweiten
13.02.2004 18:06:27
Werner
erst mal Dank an Stefan W. für seine schnelle Antwort.
Leider geht das Makro nicht so ganz. Auch die Zeilen mit dem Wert 0 müssen entfernt werden.
Hier das Makro von Stephan:
Sub MalTesten()
'Daten in eine Hilfstabelle kopieren
Range("A2:F50").Copy
Sheets("Tabelle2").Select
Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Set zelle_1 = Range("A2:F50")
For Each Z In Range("A2:F50")
'nur für die Zelle
If IsEmpty(Z.Value) Then Z.Delete Shift:=xlUp
'wenn ganze Zeile raus soll
'If IsEmpty(Z.Value) Then Z.EntireRow.Delete
Next Z
End Sub
Was muss ich da ändern?
Problembeschreibung:
Ich muß aus einer Tabelle (A2:f50) nur die Zeilen herauskopieren, die Werte enthalten. Die Werte in der Tabelle werden durch Formeln gefüllt. Mal sind es 15 Zeilen die Werte enthalten mal 20 usw. Die Werte möchte ich in einer anderen Anwendung durch "Einfügen nur Werte" weiterverarbeiten. Dazu darf allerdings nur der Bereich aus der Stammtabelle herauskopiert werden, der Werte enthält. Die Anwendung, in der ich die Werte weiterverarbeite gibt mir wegen Leerzeilen eine Fehlermeldung zurück. Wie ist das mit VBA möglich?
Danke für jeden weiteren Tip
Werner