Hallo zusammen,

ich bin auch recht neu, was die Makro und vba Programmierung angeht.

Ich habe eine Tabelle, wo in Spalte 1 ab Zeile 4 verschiedene Mail Adressen stehen.
Die Mail Adressen sind alle bis auf den Mittelteil identisch.

Beispiel Mail: _da-Frankfurt@test.de / _da-Augsburg@test.de

Also nur der Städtename ist der unterschied in den Mail Adressen.

in Spalte 2 stehen ab Zeile 4 die dazu gehörigen Faxnummern.

Nun habe ich folgendes Makro erstellt.

Option Explicit
Dim AgS
Dim FaX
Dim AgS1
Dim FaX1
Dim AgS2
Dim FaX2
Dim AgS3
Dim FaX3
Dim AgS4
Dim FaX4
Dim AgS5
Dim FaX5
Dim AgS6
Dim FaX6
Dim ErgebniS

Sub test()
'
' test Makro
'

'
    Sheets("Tabelle1").Select
    Range("A1").Select
    ErgebniS = InputBox("AGS Suche, Bitte vor und nach der Stadt * eingeben.")
    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$A$37").AutoFilter Field:=1, Criteria1:=Array(ErgebniS), Operator:=xlFilterValues
    ActiveCell.Offset(5, 0).Select
    AgS = Selection
    ActiveCell.Offset(0, 1).Select
    FaX = Selection
    ActiveCell.Offset(1, -1).Select
    AgS1 = Selection
    ActiveCell.Offset(0, 1).Select
    FaX1 = Selection
    ActiveCell.Offset(1, -1).Select
    AgS2 = Selection
    ActiveCell.Offset(0, 1).Select
    FaX2 = Selection
    ActiveCell.Offset(1, -1).Select
    AgS3 = Selection
    ActiveCell.Offset(0, 1).Select
    FaX3 = Selection
    ActiveCell.Offset(1, -1).Select
    AgS4 = Selection
    ActiveCell.Offset(0, 1).Select
    FaX4 = Selection
    ActiveCell.Offset(1, -1).Select
    AgS5 = Selection
    ActiveCell.Offset(0, 1).Select
    FaX5 = Selection
   
    Range("A1").Select
    Selection.AutoFilter
    MsgBox ("EMail " & vbTab & AgS & vbCrLf & "Fax " & vbTab & FaX & vbCrLf & "EMail " & vbTab & AgS1 & vbCrLf & "Fax " & vbTab & FaX1 & vbCrLf & "EMail " & vbTab & AgS2 & vbCrLf & "Fax " & vbTab & FaX2 & vbCrLf & "EMail " & vbTab & AgS3 & vbCrLf & "Fax " & vbTab & FaX3 & vbCrLf & "EMail " & vbTab & AgS4 & vbCrLf & "Fax " & vbTab & FaX4 & vbCrLf & "EMail " & vbTab & AgS5 & vbCrLf & "Fax " & vbTab & FaX5 & vbCrLf)

   
End Sub

Soweit so gut. Der Sinn des ganzen ist, dass es leider von verschiedenen Städten, noch zweigstellen gibt bzw im Beispiel Frankfurt einmal Frankfurt-Main und Frankfurt-Oder gibt.

Jetzt will ich, das das Makro mir in der Ergebnisliste alle Mailadressen und Faxnummern ausgibt, die zb. Frankfurt enthalten.

Die Filter Funktion wird auch vernünftig ausgeführt.

Nur bei der Afrage nach den Zellen, nimmt er auch die im Hintergrund liegenden Zellen und nicht das Ergebnis der Filterfunktion.

Wie kann ich es bewerkstelligen, dass er nur das Ergebnis der Filterfunktion anzeigt im Ergebnis und nicht die dazwischenliegenden Zellen.

Da ich ja auch nicht weiss, welche Zellen im Ergebnis angezeigt werden, kann ich keinen Zellbezug angeben.

Ich hoffe es ist einigermaßen verständlich ausgedrückt ;-)

Habe evtl schon an eine elseif Anweisung gedacht, weiss aber nicht wie ich dieses einbaue.

Vielen Dank für Eure Hilfe.