Thema Datum  Von Nutzer Rating
Antwort
02.08.2012 21:27:02 StephanW
NotSolved
Blau Filterfunktion in Makro und nur die Ergebnisse ausgeben.
 06.08.2012 12:57:03 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
06.08.2012 12:57:03		 Views:
783		 Rating:
     
Antwort:
  Ja
Thema:
Filterfunktion in Makro und nur die Ergebnisse ausgeben.

Hallo StephanW,

dein Problem wäre vielleicht auch so zu lösen:

 

Sub Adressen_nach_Stadt()

   Dim Suche As String
   Dim Letzte_Zeile As Long
   Dim Ergebnis As String
   Dim n As Long
   Dim AgS As String
   
   Suche = ""
   
   Sheets("Tabelle1").Select
   Suche = InputBox("Nach welcher Stadt suchen Sie")
   
   Ergebnis = "Ergebnis für: " & Suche & "..." & vbCrLf & vbCrLf
   
   If Suche = "" Then
      MsgBox "Sie haben nichts eingegeben!"
      Exit Sub
   Else
      Letzte_Zeile = Cells(Cells.Rows.Count, 1).End(xlUp).Row
      If Letzte_Zeile > 4 Then
         For n = 1 To Letzte_Zeile
             If InStr(1, LCase(Cells(n, 1).Value), LCase(Suche)) > 0 Then
                 Ergebnis = Ergebnis & _
                            "EMail: " & vbTab & Cells(n, 1).Value & vbTab & vbCrLf & _
                            "Fax:   " & vbTab & Cells(n, 2).Value & vbCrLf
             End If
         Next
         MsgBox Ergebnis
      End If
   End If
    
End Sub

 

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.08.2012 21:27:02 StephanW
NotSolved
Blau Filterfunktion in Makro und nur die Ergebnisse ausgeben.
 06.08.2012 12:57:03 Dekor
NotSolved