Kunden anzeigen lassen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kunden anzeigen lassen
von: Holger
Geschrieben am: 24.06.2002 - 11:15:38

Hallo,
Ich habe eine Datenbank mit Kunden und möchte mir per Click
nur die Kunden anzeigen lassen, die als Bemerkung(steht in Spalte N)das Wort "Netz" haben.

Vielen Dank im voraus !!


nach oben   nach unten

Re: Kunden anzeigen lassen
von: Hajo_Zi
Geschrieben am: 24.06.2002 - 11:20:19

Hallo Holger

was hälts Du von Daten, Filter, Auto Filter

Gruß Hajo


nach oben   nach unten

Re: Kunden anzeigen lassen
von: Holger
Geschrieben am: 24.06.2002 - 11:45:57

Hallo Hajo,
hatte es mit den Filtern auch schon überlegt, wollte es aber eigentlich per VBA lösen.Wenn du eine Lösung weißt wäre ich dir
dankbar,brauchst dich aber nicht extra zu bemühen, mache es sonst
über die Filter.

Vielen Dank für deine Hilfe !!


nach oben   nach unten

per VBA
von: MikeS
Geschrieben am: 24.06.2002 - 20:05:06

Hallo Holger,

damit müßte es gehen.

Dein Wunschbereich (im Code unten "N1:N20") muß noch Deinen
Wünschen entsprechend angepaßt werden.


Sub Ausblenden()
  Dim Zelle As Range
  Dim ws As Worksheet
  Set ws = Application.ThisWorkbook.ActiveSheet
  Application.ScreenUpdating = False
    For Each Zelle In ws.Range("N1:N20").Cells
      If Zelle <> "Netz" Then
        ws.Rows(Zelle.Row).Hidden = True
      End If
    Next
  Application.ScreenUpdating = True
End Sub

Sub Einblenden()
  Dim Zelle As Range
  Dim ws As Worksheet
  Set ws = ThisWorkbook.ActiveSheet
  Application.ScreenUpdating = False
    For Each Zelle In ws.Range("N1:N20").Cells
      If Zelle <> "Netz" Then
        Rows(Zelle.Row).Hidden = False
      End If
    Next
  Application.ScreenUpdating = True
End Sub

Ciao MikeS

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kunden anzeigen lassen"