VBA - Werte übertragen

Forumthread: VBA - Werte übertragen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: VBA - Werte übertragen

02.02.2021 12:10:27

Kurt

Hallo nochmal,
folgender Sachverhalt:
In Reihe A stehen Zahlen. Wenn die Zahl "3" dort vorhanden ist, sollen in die Zeile, wo die "3" ab Reihe B
Daten aus einem "Tabellenblatt 2" (G40:O40) eingefügt werden.
Vielen Dank
Kurt

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Werte übertragen

02.02.2021 12:44:32

ralf_b
AW: VBA - Werte übertragen

02.02.2021 21:32:11

Kurt
AW: VBA - Werte übertragen

02.02.2021 21:44:58

ralf_b

AW: VBA - Werte übertragen

02.02.2021 12:44:32

ralf_b

ungetestet.

for i = 1 to cells(rows.count,1).end(xlup).row
if cells(i,1) = "3" or cells(i,1) = "3" then
cells(i,2).resize(,9).value = sheets("Tabellenblatt 2").Range("G40:O40").value
end if
next

AW: VBA - Werte übertragen

02.02.2021 21:32:11

Kurt

Hall Ralf,
Bin gerade erst zum testen gekommen.
Super - funktioniert genau so wie ich es haben wollte.
Vielen Dank
Kurt

AW: VBA - Werte übertragen

02.02.2021 21:44:58

ralf_b

danke für die Rückmeldung ich habe aber gerade gesehen das ich mich verschrieben habe.
if cells(i,1) = "3" or cells(i,1) = 3 then
Hintergrund ist das eine Zahl nicht gleich einem Text ist.
gruß
rb