Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

variable Spalte ?

variable Spalte ?
Erich
Hallo EXCEL-Freunde,
habe noch ein Anpassungsproblem. Über eine UserForm kann ich individuell
Dateien/Tabellen/Spalten für eine Suchabfrage auswählen. Die Spalte
erhält dann im Code "mySpalte".
Bei einer Stelle komme ich nicht weiter; siehe Fragezeichen:
Option Explicit Set wks1 = Sheets(ComboBox2.Text) Set wks2 = Sheets(ComboBox5.Text) Set wksNeu = Sheets("Gefunden") lng2 = IIf(IsEmpty(wks2.Cells(65536, mySpalte2)), wks2.Cells(65536, mySpalte2).End(xlUp).Row, 65536) lngNeu = IIf(IsEmpty(wksNeu.Range("A65536")), wksNeu.Range("A65536").End(xlUp).Row + 1, 65536) For lngRow = 1 To lng2 Set rng = wks1.Columns(mySpalte).Find(wks2.Cells(lngRow, mySpalte2), _ LookIn:=xlValues, LookAt:=xlWhole, after:=wks1.[A65536]) '? hier müsste A in "mySpalte" geändert werden If Not rng Is Nothing Then sFirst = rng.Address rng.EntireRow.Copy wksNeu.Cells(lngNeu, 1) lngNeu = lngNeu + 1 Do Set rng = wks1.Columns(mySpalte).FindNext(after:=rng) If Not rng Is Nothing Then If sFirst = rng.Address Then Exit Do rng.EntireRow.Copy wksNeu.Cells(lngNeu, 1) lngNeu = lngNeu + 1 End If Loop End If
Da gibts doch bestimmt ne Lösung; komme nicht drauf.
Besten Dank für eine Hilfe!
mfg
Erich

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: variable Spalte ?
Ramses
Hallo
Ungetestet sollte ab tun.
Ändere die Zeile
LookIn:=xlValues, LookAt:=xlWhole, after:=wks1.[A65536])
in
LookIn:=xlValues, LookAt:=xlWhole, after:=wks1.Cells(rng.Row,mySpalte2)
Gruss Rainer
Danke - Rainer; perfekt!! o.T.
Erich
.
Merci :-) Geschlossen o.T.
Ramses
...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige