Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

[Erledigt]------------------------------------------------------------

Ich habe mal wieder ein kleines Problem:

Ich habe ein Makro, das alle Werte in einer Spalte (K) löscht und anschließend aus einer Spalte (A) alle Werte ohne Duplikate in diese Spalte (K) schreibt. Das funktioniert auch soweit ganz gut.

Nun habe ich aber einen dynamischen Namen für den Bereich (K) definiert und nach jedem durchlauf den Makros fehlt ihm der Bezug.

Vielleicht gibt es einen anderen Befehl zum löschen, der den Bezug nicht beeinflusst

In der Spalte (A) habe ich ein Dropdown Menü hinterlegt, das auf den definierten Namen der Liste (K) zurückgreift. Ich möchte quasi ein Dropdown Menü in Spalte A haben, das sich aktuallieisert, wenn ein neuer Wert/Name in A eingegeben wird, der noch nciht im Dropdown Menü vorhanden ist.

Ich häng euch auch mal eine Beispieldatei an.

[Erledigt] ------------------------------------------------------------------------------

Neues Problem

Jetzt habe ich z als Integer definiert, damit ich eine größer Datenreihe prüfen kann. Im Moment sind es 7500 Zellen die geprüft werden. Das dauert zu lange.

Sub ListeOhneDoppelten()
    Dim z As Integer
    Dim Ausgabe As String
    Dim Bereich As Range, Zelle As Range
   
    Set Bereich = [B2:B7500]
    Ausgabe = "K" 'Spalte hier ändern
    z = 0

    For Each Zelle In Bereich
        If z > 0 Then
            If Application.WorksheetFunction.CountIf(Range( _
                Ausgabe & "1:" & Ausgabe & z), Zelle) = 0 Then
                z = z + 1
                Cells(z, Ausgabe) = Zelle
            End If
        Else
            z = 1
            Cells(z, Ausgabe) = Zelle
        End If
    Next
    Range(Ausgabe & "1:" & Ausgabe & z).Sort _
        Key1:=Range(Ausgabe & "1"), Order1:=xlAscending
End Sub


Hi,

ja eine gute und simple Idee, danke.

Um die Übersicht zu bewahren sollten die Rechnungen auf einem anderen Arbeitsblatt durchgeführt werden. Ein weiterer Punkt ist, das es so noch nicht automatisch erfolgt.

Ziel von meinem "Programm" ist es, das nach dem Einlesen der Daten eine komplett automatische Auswertung der Daten erfolgt.

Einlesen in Tabelle 1, tabellarische und grafische Auswertung auf Tabelle 2

Noch jemand eine Idee?

Hey, vielen Dank, klappt super.

Da war ich wohl auf dem falschen Dampfer und die Datum's formatierung hatte auch Probleme gemacht.

Hey,

ich hab schon viele Foreneinträge zu der oben genannten Funktion gelesen, aber mir wird immer der Wert 0 ausgegeben.

=MAX(WENN(Detaildaten!AE:AE=A2;R:R))

Der Hintergedanke:

AE - Datum der Messung als Text
A2 - gewünschtes Datum
R - Wasserstand

Der Wasserstand wird jeden Tag mehrmals gemessen und aufaddiert. Die Funktion soll mir also an einem bestimmten Tag den Maximalwert des Wasserstandes angeben.

Wenn also in der Spalte AE das Datum dem gesuchten entspricht soll es die Werte aus Spalte R an die MAX Funktion übergeben werden, damit hier der maximale Wert ermittet werden kann.