Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1532to1536
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

Text kopieren nach Filter

Text kopieren nach Filter
09.01.2017 11:02:04
kurt

Hallo, ich habe folgenden Code von UweD..
Set TB1 = ThisWorkbook.Sheets("Tabelle1")
EZ = 2
SP = 10
With TB1
LR = .Cells(.Rows.count, "A").End(xlUp).row
.Range(Cells(EZ, SP), Cells(LR, SP)).Formula = _
"=IFERROR(VLOOKUP(G2,'Tabelle2'!$A:$I,8,0),"""")"
.Cells(1, SP) = "Tmp"
If .AutoFilterMode Then .AutoFilterMode = False
.Columns(SP).AutoFilter
.Columns(SP).AutoFilter Field:=1, Criteria1:="ja"
.Range(Cells(EZ, 9), Cells(LR, 9)).Value = "=IFERROR(VLOOKUP(A2,'Tabelle2'!$A:$J,10,0),"""")"
.AutoFilterMode = False
.Columns(SP).ClearContents
.Cells(1, 9) = "Sonstiges"
End With
Der Code kopiert von der 9. Spalte in Tabelle 2 in die 10. Spalte von Tabelle 1 und filtert nach dem Kriterium "ja".
Der Code soll in der Spalte 9 von der 1. Tabelle den Text einfügen, welcher sich in der 10. Spalte in Tabelle 2 befindet. Es wird aber nichts oder eine 0 eingefügt.
Der Code funktioniert für die anderen Spalten:
.Range(Cells(EZ, 3), Cells(LR, 3)).Value = "=IFERROR(VLOOKUP(A2,'Tabelle2'!$A:$D,$,0),"""")"
habt ihr eine idee, an was es liegen könnte?

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

Betreff
Datum
Anwender
Anzeige
AW: Text kopieren nach Filter
09.01.2017 12:36:33
kurt
Es hat sich schon erledigt
laut Kurt erledigt owT
09.01.2017 18:16:52
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige