Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range kontrollieren

Range kontrollieren
26.09.2008 09:27:52
Eddie
Hallo Zusammen,
ich suche nach einem einfachen Weg einen string, welcher einen Range enthällt, darauf hin zu untersuchen, ob eine Spalte anders als B bzw. 2 darin enthalten ist.
Beispielinhalte:
C11,B15,B21,B27:B32 (False)
B27:B32,C11,B15,B21 (False)
B7:B10,B15:B19 (True)
B27:B32 (True)
C11 (False)
B15,B21 (True)
Mir würden hier nur Lösungen einfallen, die ein ungeheuer umständliches Zerlegen in Teilstringsvoraussetzt. Geht es einfacher?
Weil es so schön ist, muss ich auch noch zusätzlich sicherstellen, dass in der senkrechtenachse, kein Wert kleiner 4 enthalten ist, weil Zeile 1-3 die Überschrift ist
Gruß Eddie

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

Betreff
Datum
Anwender
Anzeige
AW: Range kontrollieren
26.09.2008 09:38:36
Rudi
Hallo,

Sub tt()
MsgBox CheckRange(Range("C11,B15,B21,B27:B32"))
MsgBox CheckRange(Range("B27:B32,C11,B15,B21"))
MsgBox CheckRange(Range("B7:B10,B15:B19"))
MsgBox CheckRange(Range("B27:B32"))
MsgBox CheckRange(Range("B2:B32"))
End Sub




Function CheckRange(rng As Range) As Boolean
Dim rngC As Range
For Each rngC In rng
If rngC.Column  2 Or rngC.Row


Gruß
Rudi

AW: Range kontrollieren
26.09.2008 10:55:00
Gerd
Hallo Eddie,
oder etwas pauschaler.

Sub teststart()
MsgBox Check(Range("C11,B15,B21,B27:B32"))
MsgBox Check(Range("B27:B32,C11,B15,B21"))
MsgBox Check(Range("B7:B10,B15:B19"))
MsgBox Check(Range("B27:B32"))
MsgBox Check(Range("C11"))
MsgBox Check(Range("B15:B21"))
End Sub




Function Check(ByVal rng As Range, Optional strPrüfbereich As String = "$B$4:$B$65536") As  _
Boolean
Check = False
If Not Intersect(rng, Range(strPrüfbereich)) Is Nothing Then
Check = Intersect(rng, Range(strPrüfbereich)).Address = rng.Address
End If
End Function


Gruß Gerd

Anzeige
AW: Range kontrollieren
26.09.2008 14:21:00
Eddie
Hallo Zusammen,
ich kann Euch wirklich nur Danken, denn ich hätte mir wirklich einen völlig unnötigen Aufwand gemacht, was ich geahnt hatte. An der Stelle möchte ich mich auch beim Forenbetreiber bedanken - es ist wirklich unglaublich, in welcher Geschwindigkeit man hier Lösungsmöglichkeiten bekommen kann.
Danke!!!
Gruß Eddie

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige