Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

CELLS oder RANGE mit 2 Variablen

Forumthread: CELLS oder RANGE mit 2 Variablen

CELLS oder RANGE mit 2 Variablen
05.05.2025 17:31:16
Klaus
Hallo Freunde,
ich habe eine Datei in die ich per VBA Daten kopiere, soweit so gut. Nur die Zelle ist immer eine andere. In Reihe 1 stehen verschiedene Nummern und in Spalte E verschiedene Texte.
Zum Beispiel suche ich "1234" in Reihe 1 (gefunden in Spalte BD) und den Text ABCD in Spalte E (gefunden in Reihe 16), also die Zelle BD16. Markieren soll das Makro 2 Zellen darunter.
Wie funktioniert sowas?
hier ist der Auszug aus meinem Makro:
Set search_dut = ActiveSheet.Rows(1).Find(What:="1234", Lookat:=xlWhole)

Set search_partname = ActiveSheet.Columns(5).Find(What:="ABCD", Lookat:=xlWhole)
'Range("BD18").Select
Cells(search_dut.Row, search_partname.Column + 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Irgendwo ist ein Fehler, denn er highlighted immer die Zelle R16, warum auch immer.
Kann mir bitte jemand meinen Fehler nennen? Oder eine bessere Lösung vorschlagen?

Vielen Dank schon im Voraus
Gruß Klaus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: CELLS oder RANGE mit 2 Variablen
05.05.2025 17:35:58
Onur
search_dut ergibt die SPALTE UND search_partname ist die ZEILE.
AW: CELLS oder RANGE mit 2 Variablen
05.05.2025 17:43:38
daniel
Hi

du verwechselst Zeilen und Spalten.
korrekt wäre:
Cells(search_partname.row + 2, search_dut.column ).Select


oder was ich bevorzugen würde:
Intersect(search_partname.EntireRow, search_dut.EntireColumn).Offset(2, 0).Select


Gruß Daniel
Anzeige
AW: CELLS oder RANGE mit 2 Variablen
05.05.2025 17:43:47
cysu11
Hallo Klaus,

so:


search_dut = ActiveSheet.Rows(1).Find(What:="1234", Lookat:=xlWhole).Column
search_partname = ActiveSheet.Columns(5).Find(What:="ABCD", Lookat:=xlWhole).Row
Cells(search_partname + 2, search_dut).Select

BR, Alexandra

AW: CELLS oder RANGE mit 2 Variablen
05.05.2025 17:50:22
Piet
Hallo

und du addierst 2 zu Column statt zu Row!! Den Code kannst du auch ohne Select schreiben.
Cells(search_partname.Row + 2, search_dut.Column).PasteSpecial Paste:=xlPasteValues, Transpose:=False

mfg Piet
Anzeige
AW: CELLS oder RANGE mit 2 Variablen
06.05.2025 17:47:03
Klaus
herzlichen Dank an alle, funktioniert alles

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige