Filter und Formatproblem!

Moin an alle,
ich habe da ein Phänomen, hinter das ich nicht komme. Über eine UserForm gebe ich Daten ein. Unter anderem auch ein Datum. Die Spalte, in der das Datum eingefügt wird, wird nach dem übergeben der Daten an die Tabelle, mit der Anweisung
Range(Cells(1, 20), Cells(zeile, 20)).NumberFormat = "dd/mm/yyyy"
auf Datum formatiert. Wenn ich nun in mein Tabellenblatt gehe und ändere an dem Datum etwas und mit Return abschließe, wechselt das Datum von der linken Zellenseite auf die rechte Seite. Das Format bleibt weiterhin dd.mm.jjjj. Dieses ändern der Ausrichtung alleine wäre nicht so tragisch. Da ich aber über einen weiteren Code mir die Daten filtern lasse, u. a. auch nach Datum, steht das Datum, welches ich dann händisch geändert habe, nicht mehr unter den gefilterten Einträgen.
Hat jemand eine Idee, an was das liegen könnte? Ich komme nicht dahinter. Nun sind meine VBA Kenntnisse aber auch nicht die besten.
Ich hoffe auf eine Erklärung von Euch und danke schon mal im Voraus,
Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo K.Rola,
dann würde ich die Hashsuche verwenden. Dazu musst du zwei Primzahlen berechnen. Eine, welche größer als der größte Arrayindex und eine kleiner als der größte Arrayindex. Die Routine ist nach dem initialisieren verdammt schnell.

Option Explicit
Option Base 1
'Deklaration eines Variant der das zu durchsuchende Array
'aufnimmt und des Arrays für die Hashindizes.
Const intIndex As Integer = 1000
Dim SrchArr(intIndex) As Integer
Dim HashArr(intIndex * 2) As Integer
'Über diese Funktion wird der Index für das
'einfache Hashing ermittelt.
Function Hashing(ByVal Element As Integer) As Integer
    Hashing = (Element Mod 1009) + 1 'eine Primzahl die größer ist als intIndex
End Function
'Über diese Funktion wird zur Vermeidung von Kollisiton
'der Index für das zweite Hashing ermittelt (doppeltes Hashing).
Function Doppeltes_Hashing(ByVal Element As Integer) As Integer
    Doppeltes_Hashing = (Element Mod 997) + 1 'eine Primzahl die kleiner ist als intIndex
End Function
'Die Prozedur Init_Arr dient zum Initialisieren des zu durchsuchenden Arrays,
'der Ermittlung der den einzelnen Werten zugehörigen Hashindizes sowie der
'Belegung des Hash-Arrays mit diesen Indizes.
Sub Init_Arr()
    Dim i As Integer, j As Integer, k As Integer
    'Initialisierung des zu durchsuchenden Arrays.
    For i = 1 To intIndex
        SrchArr(i) = i
    Next i
    'Initialisierung des Hash-Arrays.
    Erase HashArr
    'Verteilung der Suchwerte über die Hashindizes
    'im Hash-Array.
    For i = 1 To intIndex
        'Einfaches Hashing.
        j = Hashing(SrchArr(i))
        If HashArr(j) = 0 Then
           HashArr(j) = SrchArr(i)
        Else
            'Doppeltes Hashing zur Vermeidung von Kollision.
            k = Doppeltes_Hashing(SrchArr(i))
           Do
              j = Hashing(j + k)
           Loop Until HashArr(j) = 0
           HashArr(j) = SrchArr(i)
        End If
    Next i
End Sub
'Die Prozedur Hash_Search sucht den übergebenen Wert indem sie
'zunächst den zugehörigen Hashindex ermittelt und über diesen dann
'den Suchwert abfragt.
Sub Hash_Search(ByVal SuchElement As Integer, ByRef Gefunden As Boolean)
    Dim i As Integer, j As Integer, k As Integer
    'Ermittlung des einfachen Hashindex für den zusuchenden Wert.
    j = Hashing(SuchElement)
    'Ausfindigmachen des Suchwerts im Hash-Array.
    If HashArr(j) = 0 Then
       Gefunden = False
    Else
       If HashArr(j) = SuchElement Then
          Gefunden = True
       Else
          'Ermittlung des Index für das doppelte Hashing anhand des Suchwerts.
          k = Doppeltes_Hashing(SuchElement)
          Do
             j = Hashing(j + k)
          Loop Until (HashArr(j) = 0) Or (HashArr(j) = SuchElement)
          Gefunden = (HashArr(j) = SuchElement)
       End If
    End If
End Sub
'Über diese Prozedur wird das Suchergebnis ausgegeben.
Sub SrchAusgabe(ByRef SuchElement As Integer, ByRef Gefunden As Boolean)
    MsgBox SuchElement & IIf(Gefunden, "", " nicht") & " gefunden in Array."
End Sub
'Die Hauptprozedur führt die vorab aufgeführten Prozeduren aus
'indem sie einige Suchen durchführt und diese Prozeduren einsetzt.
Sub Hash_Search_Test()
    Dim Gefunden As Boolean
    Call Init_Arr
    Call Hash_Search(1901, Gefunden)
    Call SrchAusgabe(1901, Gefunden)
    Call Hash_Search(11, Gefunden)
    Call SrchAusgabe(11, Gefunden)
    Call Hash_Search(4444, Gefunden)
    Call SrchAusgabe(4444, Gefunden)
    Call Hash_Search(22, Gefunden)
    Call SrchAusgabe(22, Gefunden)
End Sub

Solltest du alphanummerische Werte im Array haben, so sind die addierten Characterwerte zu verwenden.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filter und Formatproblem!

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread