Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich mit gleichen Formatierungen auslesen

Bereich mit gleichen Formatierungen auslesen
Uwe
Hallo Forum,
um Excelsheets zu validieren werden umfangreiche Dokumentationen benötigt.
Unter anderem müssen Bedingte Formatierungen, Gültigkeiten usw. beschrieben werden. Dies mache ich zur Zeit indem ich alle relevanten Zellen einzeln dokumentiere (automatisiert). Gibt es eine Möglichkeit die Adressen von gleich formatierten Zellen über VBA auszulesen.
Simples Beispiel: Die Zellen A5:C5000 haben die gleiche Gültigkeit, wie komme ich nun über VBA an diese Bereichsadresse ich möchte nicht ca. 15000 einzelne Zellen dokumentieren.
Ich hoffe ich hab mich verständlich gemacht und bin dankbar für jeden Lösungsansatz.
Uwe

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

Betreff
Benutzer
Anzeige
AW: Bereich mit gleichen Formatierungen auslesen
04.05.2004 14:34:08
Uwe
Hallo Uwe,
probier mal das:

Sub ListGueltigkeitsbereiche()
Dim Ausgabe As Range
Dim S(1) As String
Dim Of As Byte
Dim R As Range
Dim Z As Range
On Error GoTo NotFound
Set R = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
Set Ausgabe = Worksheets("Gültigkeit").Range("A2")  'erste Zelle des Ausgabebereiches
For Each Z In R.Cells
S(1) = Z.SpecialCells(xlCellTypeSameValidation).Address
If S(0) <> S(1) Then
Ausgabe.Offset(Of, 0) = S(1)
Of = Of + 1
S(0) = S(1)
End If
Next Z
Exit Sub
NotFound:
MsgBox Error
End Sub

Gruß Uwe
Anzeige
AW: Bereich mit gleichen Formatierungen auslesen
04.05.2004 15:17:10
Uwe
Hallo Uwe,
die erste Version ist nicht ganz OK, aber die hier:

Sub ListGueltigkeitsbereiche()
Dim Ausgabe As Range
Dim S As String
Dim Of As Byte
Dim R As Range
Dim Z As Range
On Error GoTo NotFound
Set R = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
Set Ausgabe = Worksheets("Gültigkeit").Range("A2")  'erste Zelle des Ausgabebereiches
For Each Z In R.Cells
S = Z.SpecialCells(xlCellTypeSameValidation).Address
If Worksheets("Gültigkeit").Columns("A").Find(S) Is Nothing Then
Ausgabe.Offset(Of, 0) = S
Of = Of + 1
End If
Next Z
Exit Sub
NotFound:
MsgBox Error
End Sub

Gruß Uwe
Anzeige
AW: Bereich mit gleichen Formatierungen auslesen
05.05.2004 10:08:04
Uwe
Hallo Uwe,
es funktioniert.
Vielen Dank!
Gruß
Uwe

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige