bestimmte Namen auflisten.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
mit Alt+F11 in den VBA-Editor wechseln. In dessen Menüleiste - Einfügen - Modul. In das sich öffnende Codefenster folgende Prozedur kopieren:

Option Explicit

Public Sub Rote_Liste()
    Dim objCell As Range
    Dim objArrayList As Object
    Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")
    With Tabelle1
        For Each objCell In .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, 4))
            If objCell.Font.Color = vbRed Then
                If Not objArrayList.Contains(objCell.Value) Then _
                    Call objArrayList.Add(objCell.Value)
            End If
        Next
        If objArrayList.Count > 0 Then
            Call objArrayList.Sort
            .Cells(1, 6).Resize(objArrayList.Count) = Application.Transpose(objArrayList.ToArray)
        End If
        Set objArrayList = Nothing
    End With
End Sub

Dann mit Alt+q den VBA-Editor schließen, mit Alt+F8 den Makrodialog aufrufen und die Prozedur "Rote_Liste" starten und staunen. Damit das Makro erhalten bleibt, musst du die Mappe im Dateiformat .xlsm speichern.
Gruß
Nepumuk

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) lz = Cells(Rows.Count, "f").End(xlUp).Row If Cells(lz, "F") "" Then lz = lz + 1 Cells(lz, "F") = Target.Value End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set isect = Application.Intersect(Target, Range("A1:D11")) If isect Is Nothing Then Exit Sub lz = Cells(Rows.Count, "f").End(xlUp).Row If Cells(lz, "F") "" Then lz = lz + 1 Cells(lz, "F") = Target.Value End Sub

Hallo zusammen,
@Luc + Kollegen - das hier trifft auf mich nicht zu!! - das lernt jeder Office-Berater/-Trainer in guten Kursen
ich war weder Berater noch Trainer, programmiere aber siet 1994 Excel für Freunde, Bekannte und habe durch viele rein praktische Erfahrungen gelernt bei Aufgabenstellung mitzudenken! - Ideen vorzuschlagen die den anderen bis dahin völlig unbekannt waren.
Ich nenne es schlicht und simpel - praktische Ledbenserfahrung
Als ich mir vorstellte das ein Frager immer den Text zuerst rot markieren muss kam mir -ganz spontan- der Gedanke zu meiner vorgeschlagenen Lösung, die ich dann auch entsprechend begründete.
So in Thread hineinlesen ist vielleicht eine individuelle Eigenart meiner Person, so wie jeder geschaetzte Kollege seine individuelle, persönlichen Art Threads zu antworten hat. Mir fehlt aber auch viel Fachwissen über die moderne Programmiertechnik. Macht aber Spass dabei zu sein, und ich freue mich ja auch wenn ich mit meinem Wissen weiterhelfen konnte.
mfg Piet

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread