Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Jede Zeile auf Wert prüfen und copypaste

Jede Zeile auf Wert prüfen und copypaste
02.10.2020 10:51:39
Timo
Hallo zusammen,
folgende Problemstellung:
In Tabelle1 soll jede Zeile auf einen Wert in Spalte C geprüft werden.
Wenn dieser Wert = 1 ist, dann soll die komplette Zeile kopiert und in Tabelle2 eingefügt werden.
Mein Code sieht bisher so aus:
Private Sub CommandButton1_Click()
Dim zeile As Integer
For zeile = 1 To 100
If Sheets("Tabelle1").Cells(zeile, 3).Value = 1 Then
Sheets("Tabelle1").Cells(zeile, 3).EntireRow.Copy
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Paste
Next
Else
MsgBox "Keine Übereinstimmung gefunden.", _
vbExclamation
End If
End Sub
Das funktioniert leider nicht. Anbei eine Beispielmappe.
https://www.herber.de/bbs/user/140585.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Jede Zeile auf Wert prüfen und copypaste
02.10.2020 11:32:19
chris
Hallo Timo,
versuchs mal hiermit.
Private Sub CommandButton1_Click()
Dim zeile As Integer
For zeile = 1 To 100
If Sheets("Tabelle1").Cells(zeile, 3).Value = 1 Then
Sheets("Tabelle1").Rows(zeile).Copy Destination:=Sheets("Tabelle2").Range("A" & Sheets(" _
Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Else
MsgBox "Keine Übereinstimmung gefunden.", _
vbExclamation
End If
Next
End Sub

Anzeige
AW: Jede Zeile auf Wert prüfen und copypaste
02.10.2020 12:34:07
Timo
Super, thanx
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige