Office: Bestimmte Zellen kopieren und Einfügen vba

Beverly · 1. März 2017

Soll in allen Tabellenblättern gesucht werden oder nur in einem bestimmten?

remix92 · 1. März 2017

Vielen Dank für die Schnelle Antwort *Smilie

in Allen Tabellenblätter

Beverly · 1. März 2017

Ungetestet:

Code:

Sub kopieren()
Dim lngErste As Long
Dim lngZeile As Long
Dim WS As Worksheet
With Worksheets("Wire1")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 16)), .Cells(.Rows.Count, 16).End(xlUp).Row, .Rows.Count) + 1
End With
For Each WS In Worksheets
With WS
If .Name "Wire1" Then
For lngZeile = 1 To IIf(IsEmpty(.Cells(.Rows.Count, 16)), .Cells(.Rows.Count, 16).End(xlUp).Row, .Rows.Count)
If .Cells(lngZeile, 16) = 1 Then
Rng.EntireRow(lngZeile).Copy Worksheets("Wire1").Rows(lngErste)
lngErste = lngErste + 1
End If
Next lngZeile
End If
End With
Next WS
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

remix92 · 1. März 2017

Bekomme leider die Fehlermeldung
"Objekt erforderlich"

Beverly · 1. März 2017

Ich dachte, du hast deinen Ursprungscode schon getestet...

Ändere Rng.EntireRow(lngZeile) in .Cells(lngZeile,1).EntireRow

remix92 · 1. März 2017

Vielen Dank!
funktioniert einwandfrei *Smilie

Wäre es denn Möglich, dass automatisch nach Inhalten wie 1, 2 , 3 , .... 83 sucht und diese jeweils in die entsprechende Tabbellenblätter Wire1, Wire2, Wire3 ... Wire83 einfügt ?

Dann müsste ich das makro nicht 83 mal ändern *Smilie

Beverly · 1. März 2017

Also soll das Ganze anders laufen: aus einem bestimmten Tabellenblatt (nennen wir es Starttabelle) sollen die Daten aufgeteilt werden auf Wire1, Wire2, Wire3 usw.?

remix92 · 1. März 2017

Nein, wie oben beschrieben:
Es soll in allen Tabellenblätter in der Spalte P gesucht werden nach den Einträgen 1, 2, 3...., 83
Dann sollen alle gefundenen Einträge zb die Zeilen die in Spalte P den Eintrag 1 enthalten in das tabellenblatt "Wire1" kopiert werden (das macht ja das makro von dir schon)

Nun würde ich gerne alle Zeilen die in Spalte P den Eintrag 2 ausweisen, nach "Wire2" kopieren.

Das gleiche für den Eintrag 3, dieser muss in "Wire3" und kopiert werden usw.

Die ganze Prozedur bis 83 *Smilie

Beverly · 1. März 2017

Meine Frage zielt auf folgenden Sachverhalt: wenn ALLE Tabellenblätter durchlaufen werden sollen, werden auch die Tabellenblätter Wire1, Wire2 usw. ebenfalls durchlaufen und auch in ihnen wird dann in der Schleife geprüft, ob in Spalte B die Werte 1, 2, usw. stehen. Da dies ja der Fall ist, werden sie nocheinmal ins selbe Tabellenblatt kopiert - das kann doch nicht Sinn und Zweck des ganzen sein, oder sehe ich das falsch?

remix92 · 1. März 2017

Tut mir leid *Smilie
Natürlich hast du recht.
Tabellenblätter "Wire1...83" sollen nicht durchlaufen werden sondern, die sind nur für das Einfügen da!

Beverly · 1. März 2017

Code:

Sub kopieren()
Dim lngErste As Long
Dim lngZeile As Long
Dim WS As Worksheet
Dim wksTab As Worksheet
For Each WS In Worksheets
With WS
If Left(.Name, 4) "Wire" Then '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

remix92 · 1. März 2017

Perfekt!!!
Vielen Dank!

Office: Bestimmte Zellen kopieren und Einfügen vba

Bestimmte Zellen kopieren und Einfügen vba

Bestimmte Zellen kopieren und Einfügen vba

Bestimmte Zellen kopieren und Einfügen vba

Bestimmte Zellen kopieren und Einfügen vba

Bestimmte Zellen kopieren und Einfügen vba - Similar Threads - Bestimmte Zellen kopieren

Nur markierte Zellen kopieren und wieder einfügen

Wenn in Zelle bestimmter Wert dann kopieren

Wenn in Zeile bestimmter Wert dann ganze Zelle kopieren

Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren

[EILT] Bestimmte Inhalte einer Zelle in eine andere Zelle kopieren und die Anzahl ausrechnen

Bei gleichem Wert bestimmte Zellen kopieren

rechte Zelle kopieren wenn Zelle bestimmten Inhalt hat