Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

flexible Range in Find

flexible Range in Find
04.02.2022 10:55:23
StefanH
Hallo zusammen,
ist es möglich bei der Find-Methode über VBA nicht zusammenhängende Spalten der gleichen Zeile zu prüfen ob etwas vorhanden ist?
Also "falsch" dargestellt einmal so:

If Not Tabelle2.range(Cells(lzeile, lspalte(1)), Cells(lzeile, lspalte(2)), Cells(lzeile, lspalte(3)), Cells(lzeile, lspalte(4))).Find("X") Is Nothing Then
Die Variablen weise ich zuvor schon einem Wert zu, bei lspalte(1-4) sind die Werte 5-14 möglich.
So wie ich es geschrieben habe, funktioniert es natürlich nicht, ich dachte vllt das es so funktionieren könnte:

strRng = Array(Cells(lzeile, lspalte(1)), Cells(lzeile, lspalte(2)), Cells(lzeile, lspalte(3)), Cells(lzeile, lspalte(4)))
If Not Tabelle2.Range(strRng).Find("X") Is Nothing Then
Code wenn "X" vorhanden
End If
Hätte jemand eine Idee wie ich das umsetzten kann um nicht jede Spalte einzeln abfragen zu müssen?
Herzlichen Dank im Vorraus und
Grüße
StefanH

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

Betreff
Datum
Anwender
Anzeige
AW: flexible Range in Find
04.02.2022 11:22:18
Piet
Hallo
strRng = Cells(lzeile, lspalte(1).Resize(1, 4) - Resize(1,4) vergrössert den Spaltenbereich auf 4 Spalten. Resize(4,1) verlängert die Zeilen nach unten! Probier es mal damit.
mfg Piet
AW: flexible Range in Find
04.02.2022 11:26:07
Stefan
Hallo Piet,
danke schonmal für den Code.
Er funktioniert bei mir leider nicht.
Ich vermute auch erst ist eher dafür ausgelegt, wenn die Spalten nebeneinander liegen.
Es kann aber auch so sein:
lspalte(1) = 6
lspalte(2) = 7
lspalte(3) = 10
Ich werd die Datei mal anonymisieren und hochladen.
Grüße
Stefan
noch die Datei
04.02.2022 11:31:53
Stefan
Ging schneller als gedacht:
https://www.herber.de/bbs/user/150874.xlsm
Der code ist im Modul "DatenÜbernehmenUndSpeichern" als Sub "Kopieren_Nach_Maschine"
Ich hoff man kann den Code einigermaßen nachvollziehen.
Normalerweise öffnet sich bei Start direkt die UF"Maschine_Wählen", zum besseren reinkommen hab ich das auskommentiert.
Gruß
Stefan
Anzeige
AW: flexible Range in Find
04.02.2022 11:37:56
GerdL
Moin Stefan,
es ist schöner, erst zu suchen u. danach das Ergebnis auszuwerten.
Die Range-Find-Methode hat einige weitere Argumente, die man einstellen sollte (after:= .., lookat:=.., lookin:= ...matchcase:= ..)
denn sie könnten im Dialog Suchen "verstellt" werden.
Einige Beispiele für die Bildung eines heterogenen Bereichs:

Dim rngBereiche As Range, rngCell As Range
Set rngBereiche = Union(Tabelle1.Cells(5, 1), Tabelle1.Cells(5, 3), Tabelle1.Cells(5, 4), Tabelle1.Cells(5, 8))
Set rngBereiche = Tabelle1.Range("A5,C5:D5,H5")
Set rngBereiche = Intersect(Tabelle1.Rows(5), Tabelle1.Range("A:A,C:D,H:H"))
'Set rngCell = rngBereiche.Find(.....)
'If Not objCell Is Nothing Then
'machwas
'End If
Gruß Gerd
Anzeige
gelöst
04.02.2022 12:20:44
Stefan
Hallo Gerd,
herzlichen Dank. auch für die Erklärung.
Genau nach dem hab ich gesucht, funktioniert einwandfrei.
Ich wünsche dir noch ein schönes Wochenende :)
Gruß
Stefan

196 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Finden in VBA
dierkrat

Guten Tag,
ich werde leider aus den vorhandenen Einträgen nicht schlau, so daß ich leider nachfragen muß. Ich habe in einer Zelle folgenden String 'abcdefg (huhu)'. Ich möchte hier jetzt nur 'huhu' ausschneiden und insofern nach dem Zeichen '(' suchen, um anschließen die Länge zu adjustiere...
29.09.2009 12:47:53
Thread-ID: 1106179
9 Beiträge
VBA - Letzte Tabelle Finden und Formel einfügen
André

Hallo Forum,
ich habe jetzt ein paar VBA Funktionen gefunden und in meine Datei eingebaut,
komme aber trotzdem nicht zum Schluss.
Ich habe 5 Tabellenblätter (1 - 5). Für die KW 6 will ich per VBA ein neues Blatt
einfügen und in A1 der Tabelle6 mittels Makro die Funktion
"vo...
07.12.2009 13:31:49
Thread-ID: 1122185
5 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
5
4
13
2
3
8
4
6
4
3
6
2
2
2
6
12
3
10
5
8
2
6
5