Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle kopieren nach 3 Bedingungen

Zelle kopieren nach 3 Bedingungen
19.03.2015 15:43:12
Excel Sius

Guten Tag zusammen,
ich möchte die Begriffe aus Spalte1 von "Wartungsarbeiten" in die Tabelle von Sheet4 kopieren. Dabei müssen 3 Bedingungen behandelt werden. Ich kriege es nicht hin, dass nur die erste Spalte kopiert wird. Die Datei nimmt die 1. Spalte und spammt die Reihen durch bis XDF. Woran liegt das?
Hab dazu folgenden Code erstellt:
Code:


Sub Kopieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "Wöchentlich" And .Cells(Zeile, 4).Value = "Freitag" And .Cells( _
Zeile, 5).Value = "Spätschicht" Then
.Cells(Zeile,1).Copy Destination:=Tabelle5.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub

mit freundlichen Grüßen

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle kopieren nach 3 Bedingungen
19.03.2015 19:21:39
Tobias Rupp
Hallo,
du hast als Destination mit Rows(n) jede einzelne Zelle der Zeile n gewählt. Nimm stattdessen:
.Cells(Zeile,1).Copy Destination:=Tabelle5.Cells(n, 1)
Gruß
Tobias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige