---

Hallo zusammen

Ich führe eine Datenbank (Tabellenblatt "Input"). Meine Einträge mache ich alle in der Spalte A. Dies ist ein Beispiel für einen Eintrag:

Zitat:

---

20140226-1405-Darksidy

---

Also im Format "DATUM-UHRZEIT-NAME".

Ich möchte nun im Tabellenblatt "Output" im Feld A2 einen Namen eingeben, beispielsweise "Darksidy". Wenn ich das Makro ausführe, soll mir im Tabellenblatt "Output" ab Feld A7 abwärts alle Daten aufgeführt werden und ab Feld B7 jeweils die Uhrzeit. Es sollen aber nur diejenigen Einträge aufgelistet werden, bei denen im Input der entsprechende Name übereinstimmt (bspw. "Darksidy").

Die durch das Makro erstellte Liste soll also bei zwei Datenbank-Einträgen mit "Darksidy" von A7 bis B8 gehen, Einträge mit "MaxMuster" sollen nicht aufgelistet werden.

Dass man mit den Formeln "Rechts" sowie "Länge" und "Teil" die gewünschten Komponenten des Datenbank-Eintrags erhält, weiss ich. Doch kriege ich das nicht in ein Makro rein.

Betreffend den Einträgen im Input-Tabellenblatt: Ich rechne da gut und gerne mit über 1'000 Einträge. Eine dynamische Variante, die nur effektive Einträge berücksichtigt, wäre wahrscheinlich aus Performance-Gründen besser?!

Herzlichen Dank für Eure Hilfe.

Beste Grüsse
Darksidy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

2010FILTERNMITVORGABE.zip

Normalweise Datum - Uhrzeit -Name User auf 3 Spalten verteilt und die Tabelle mit dem Filter versehen, dort kann man dann auch nach Kriterien filtern      oder in Richtung Pivot gehen.

Aber wenn schon bei einer ¿Datenbank! gleich 3 Werte zusammengefasst werden   

Die Anforderung würde auch per auch per Formel gehen, die Formel dementsprechend nach unten kopieren.

- Keine Ahnung ob bei 1000 mal runterkopieren, das noch performant ist ;-)

Formeln aus www.excelformeln.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn ich dich richtig verstanden habe - folgenden Code ins Codemodul des Tabellenblattes "Output":

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rngZelle As Range
  Dim strStart As String
  Dim lngZeile As Long
  lngZeile = 7
  If Target.Address = "$A$2" Then
      Application.EnableEvents = False
      With Worksheets("Datenbank")
        Set rngZelle = .Columns(1).Find(Target, lookat:=xlPart)
        If Not rngZelle Is Nothing Then
            strStart = rngZelle.Address
            Do
              Cells(lngZeile, 1) = rngZelle
              Cells(lngZeile, 2) = Mid(rngZelle, InStr(rngZelle, "-") + 1, 4)
              Set rngZelle = .Columns(1).FindNext(rngZelle)
              lngZeile = lngZeile + 1
            Loop While Not rngZelle Is Nothing And rngZelle.Address <> strStart
            Set rngZelle = Nothing
        End If
      End With
      Application.EnableEvents = True
  End If
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP