Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1700to1704
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

Spalte durchsuchen, Werte aus and. Spalten kopiren

Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:23:53
Len
Hallo zusammen, ich bräuchte eure Hilfe, komme nicht weiter.
Ich muss eine Spalte durchsuchen, wenn dort "ja" auftaucht, dann einige Werte aus der Zeile in ein anderes Blatt kopieren. Durchgesucht werden soll Spalte 142 in 150 Zeilen
Beispiel:
Kunde1 15,1 ja -----> Kunde1 15,1 ja
Kunde2 13,5 Kunde3 16,8 ja
Kunde3 16,8 ja
Kunde4 77,8
Hier ist mein Versuch, funktioniert leider nicht...
Sub ARAG1()
Dim i As Long
Dim rr As Long
lastrow = Worksheets("ARAG").Range("D65536").End(xlUp).Row
rr = lastrow
For i = 12 To 200
i = i + 1
rr = rr + 1
If Worksheets("Übersicht").Cells(i, 142).Value = "ja" Then
Worksheets("ARAG").Cells(rr, 4) = Worksheets("Übersicht").Cells(i, 141)
End If
Next i
End Sub
Danke im Voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:26:31
Len
Tabelle ist irgendwie schief; also von 4 Kunden die, die "ja" haben müssen in anderes Tabellenblatt kopiert werden
AW: Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:27:47
Rainer
Hallo Len,
warum nicht einfach "Autofilter" und dann Copy/Paste?
Gruß, Rainer
AW: Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:33:27
Werner
Hallo,
meinst du so:
Sub ARAG1()
Dim i As Long, lastrow As Long
lastrow = Worksheets("ARAG").Range("D65536").End(xlUp).Row
For i = 12 To 200
If Worksheets("Übersicht").Cells(i, 142).Value = "ja" Then
Worksheets("ARAG").Cells(lastrow, 4) = Worksheets("Übersicht").Cells(i, 141)
lastrow = lastrow + 1
End If
Next i
End Sub
Gruß Werner
AW: Spalte durchsuchen, Werte aus and. Spalten kopiren
15.07.2019 11:40:33
Len
Danke dir Werner, es klappt jetzt!
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
15.07.2019 12:01:33
Werner

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige