Office: Excel Macro automatischen Suchen in Zeilen und TextBox

Hallo,


Hoffe vielleicht das von euch jemand eine Idee hat hier bei meinem Problem.


Denke mal der Code ist ziemlich unsauber, aber er funktioniert :D hehe, mein größeres Problem ist das er bei „Ausgabe“ also in Spalte „D“ immer auch das Fenster auf poppt das er was gefunden hat, bei „Ausgabe2“ also Spalte „E“ passiert das nicht.


Die Idee ist... Ich habe zwei Spalten „D“ PO .. und „E“ HPN .. Wenn jetzt unten eine Zahl doppelt eingegeben wird soll er das Fenster mit der Text Box öffnen, das klappt auch soweit. Nur wenn ich wieder etwas in Spalte „D“ lösche, meldet er sich wieder..

Hab das ganze laufen unter Worksheet_Change..


Würde mich freuen wenn mir jemand etwas helfen könnte.. J


Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count = 1 And Target.Column = 4 Then

If WorksheetFunction.CountIf(Columns(4), Target.Value) > 1 Then Ausgabe CStr(Target.Value)

End If


If Target.Count = 1 And Target.Column = 5 Then

If WorksheetFunction.CountIf(Columns(5), Target.Value2) > 1 Then Ausgabe2 CStr(Target.Value2)

End If


End Sub



Sub Ausgabe(wert As String)

Dim rng As Range, strAusgabe As String, zelle

ActiveSheet.Columns(4).AutoFilter Field:=1, Criteria1:=wert

Set rng = Range("D6:D" & Columns(4).Find("").Row - 1).SpecialCells(xlCellTypeVisible)

For Each zelle In rng

strAusgabe = strAusgabe & zelle & " - " & zelle.Offset(, 1) & " - " & zelle.Offset(, 2) & " - " & zelle.Offset(, 3) & " - " & zelle.Offset(, 10) & " - " & zelle.Offset(, 15) & vbCrLf

Next



ActiveSheet.Columns(4).AutoFilter



Range("B5:S25000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("AN5:AO13"), Unique:=False


Range("A1").Select



PO.TextBox1.Text = strAusgabe


PO.Show



End Sub


Sub Ausgabe2(wert2 As String)

Dim rng2 As Range, strAusgabe2 As String, zelle2

ActiveSheet.Columns(5).AutoFilter Field:=1, Criteria1:=wert2

Set rng2 = Range("E6:E" & Columns(5).Find("").Row - 1).SpecialCells(xlCellTypeVisible)

For Each zelle2 In rng2

strAusgabe2 = strAusgabe2 & zelle2.Offset(, -1) & " - " & zelle2 & " - " & zelle2.Offset(, 1) & " - " & zelle2.Offset(, 2) & " - " & zelle2.Offset(, 9) & " - " & zelle2.Offset(, 14) & vbCrLf

' strAusgabe2 = strAusgabe2 & zelle2 & " - " & zelle2.Offset(, 1) & " - " & zelle2.Offset(, 2) & " - " & zelle2.Offset(, 9) & " - " & zelle2.Offset(, 14) & vbCrLf

Next


ActiveSheet.Columns(5).AutoFilter


Range("B5:S25000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("AN5:AO13"), Unique:=False


Range("A1").Select


HPN.TextBox2.Text = strAusgabe2


HPN.Show


End Sub