Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur Werte aus Tabelle kopieren zum zweiten

Nur Werte aus Tabelle kopieren zum zweiten
13.02.2004 18:06:27
Werner
Hallo Excel Freunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Werte aus Tabelle kopieren zum zweiten
13.02.2004 22:18:43
Dieter Klemke
Hallo Werner,
vielleicht hilft dir der folgende Code weiter:

Sub ZeilenKopieren()
' Es werden alle Zeilen kopiert, die in Spalte A
' einen Wert haben, der von 0 verschieden ist
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim zeile1 As Long
Dim zeile2 As Long
Set wb = ThisWorkbook
Set ws1 = wb.Worksheets(1)
Set ws2 = wb.Worksheets(2)
' Inhalt von Blatt 2 löschen
ws2.UsedRange.ClearContents
zeile2 = 1
For zeile1 = 2 To 50
If ws1.Cells(zeile1, 1) <> 0 Then
ws1.Rows(zeile1).Copy Destination:=ws2.Rows(zeile2)
zeile2 = zeile2 + 1
End If
Next zeile1
End Sub

MfG
Dieter
Anzeige
AW: Nur Werte aus Tabelle kopieren zum zweiten
13.02.2004 22:28:03
Werner
Hallo Dieter
danke für die Arbeit. Das ist genau das was ich brauche.
Herzlichen Dank
Werner

358 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige