Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede Zeile auf Wert prüfen und copypaste

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

Zelle auf zwei Bedingen prüfen
Claudia

Guten Tag,
ich habe folgendes Problem:
ich möchte mit einer Schleife den Inhalt von Zellen auf zwei Bedingungen prüfen.
Hier der Code:
Do While Sheets(b).Cells(iDatumRow, i) "Ich" Or "Du"
leider funktioniert er nicht, es klappt nur mit einer Bedingung, also ohne Or "Du"
...
16.06.2009 12:54:36
Thread-ID: 1081854
13 Beiträge
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Zelle bei Auswahl prüfen ob Wert
Markus

Mein Bitte ist, Ich möcht mit einem Makro prüfen ob eine Ausgewählte Zelle einen Text "R" enthält oder leer ist.
Wenn Text dann soll der Zelleninhalt gelöscht werden, wenn leer dann soll Text "R" eingefügt werden.
Dies soll aber nur im im Bereich A1:E30 erfolgen.
Vielen Danke für e...
17.08.2009 11:32:44
Thread-ID: 1096371
4 Beiträge
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Anzeige
Zelle auf Anzahl Zeichen prüfen
Kai

Hi,
ich möchte im Sheet "Daten" die Zelle A1 prüfen, ob der Inhalt mehr als 35 Zeichen ist, wenn ja, soll eine MsgBox ausgegeben werden.
Wie zähle ich denn die Zeichen per Makro ?
Danke schon mal
Kai
03.11.2009 08:56:05
Thread-ID: 1114000
2 Beiträge
Zelle auf verschiedene Inhalte überprüfen
massimo17

Hallo,
ich möchte gerne eine Zelle auf verschiedene Inhalte überprüfen.
Bisher kann ich nur nach einem Suchen mit folgender Formel:
=WENN(ISTZAHL(SUCHEN("E10";W2));"1";"0")
Also Zelle"W2" nach dem Wert E10 durchsuchen; ich möchte aber dass die Zelle nach E10 oder E11 oder E12 od...
03.12.2009 20:55:44
Thread-ID: 1121687
7 Beiträge
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 Beiträge
Anzeige
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Zellen auf Inhalt prüfen
neonac

Hallo,
ich bekomme eine Prüfung von B2 bis M2 nicht hin, ich möchte A2 rot färben wenn in diesen Zellen irgend etwas steht. Über bedingte Format. mit Formel färbt er immer nur B2 :-(
Danke und Grüße Neo
12.11.2010 00:35:47
Thread-ID: 1186432
4 Beiträge
Eintrag in Zelle aufgrund Wert in anderer Zelle
Jürgen

Hallo,
ich mache eine Vorlage für eine Urkunde.
Jetzt suche ich eine Formel in Zelle C23. Diese soll , wenn in der Zelle A25 z.B Spieler1 / Spieler2
steht als Wert "errangen" ausspucken. Steht nur ein Name darin Spieler1 dann soll nur errang angezeigt werden.
Man müßte al...
25.11.2010 17:51:02
Thread-ID: 1188824
3 Beiträge
textbox prüfen ob wert checkbox haken
Achim

wer kann helfen ?
es soll geprüft werden ob ein wert in der textbox vorhanden ist wenn aber kein wert vorhanden ist dann das makro beenden. habe schom mal angefangen. Das funktioniert. nur, wenn nichts in der textbox vorhandne ist bekomme ich einen fehler.
If UserForm1.Frame2.TextBox14....
24.08.2011 08:52:50
Thread-ID: 1227349
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige