Mit VBA Zeilen nach bestimmten Bedingungen ausblenden..

[Alex1974]

Hallo liebes Forum, bei mir handelt es sich um ein ähnliches Problem. Da ich "NULLWISSEN" bei VBA habe  frage ich hier um keine unnötiges Neues Thema zu eröffnen.

Ich möchte quasi einen "unendlichen Makro" 

Folgendes Problem

Meine Kundenkartei ist in Excel. Gerne würde ich aber auch "Infos" nach einem Kundenbesuch eintragen um später nachzulesen.

Also die Zeilen 1,3,5,7, usw enthalten Kundendaten. In den darunterliegenden Zeilen ( 2,4,6,8,usw. )  habe ich Zellen verbunden um viel Platz für Infos zu schaffen. Das Arbeitsblatt wird dadurch sehr lange und unübersichtlich.

Meine gedankliche Lösung wäre folgende:

Wenn A1 ="y" dann Zeile 2 einblenden. Wenn A1 = "" dann Zeile 2 ausblenden.
und das ganze fortlaufend
Wenn A3 ="y" dann Zeile 4 einblenden. Wenn A3 = "" dann Zeile 4 ausblenden
usw.

Kurz Version 
A1 dann Zeile 2 ein/ausblenden
A3 dann Zeile 4 ein/ausblenden
A5 dann Zeile 6 ein/ausblenden
A7 dann Zeile 8 ein/ausblenden
usw......das Ganze zumindest bis A100 bzw wenn einfacher bis Tabellenende.

Ich hoffe ich hab Euch jetzt so verwirrt wie ich bin nach einem Nachmittag mit Googeln und suchen.

Danke schon mal und ich bin gespannt ob Euer Schwarmwissen hier zu einer Lösung kommt.

Lg Alex

[shift-del]

Alex,

ein Datensatz besteht immer nur aus einer Zeile.
Verbundene Zellen in Datensätzen sind buuuuuuh!

[RPP63]

Moin!
Da braucht es keinen Schwarm.  :19:
Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
  With Target 
    If .Row Mod 2 = 1 And .Column = 1 Then 
      If .Value = "y" Then .Offset(1, 0).EntireRow.Hidden = True 
      If .Value = "" Then .Offset(1, 0).EntireRow.Hidden = False 
    End If 
  End With 
End Sub 

Gruß Ralf

[Alex1974]

R A L F  !!!!!    Mein RETTER   !!!! :19: :19: :19:

:100:

Ich hab Pipi in den Augen.........Viiiiiiieeeeelen DANK.

Das ist genau das was ich wollte. Bin total begeistert. 

Sonnige Grüße aus Oberösterreich nach , ich tippe auf Norddeutschland,  zwecks "MOIN"   :19:

Lg Alex