in ausgeblendete zeilen darf nichts reinkopiert werden

[Pirat2015]

Hallo,

ich habe eine Mastertabelle welche Ständig aktualisiert wird, dabei wurde Mastertabelle und drei weitere Zeilen ergänz, die Uhrsprungstabelle hat diese Zeilen nicht.
Wenn ich jetzt von der Ursprungstabelle in Masteratbelle neue Daten einfüge dann stimmen ja die Zeilen Einzahl nicht mehr und die Daten werden in falscher reinfolge reinkopiert.

kann man es so einstellen, das zum Beispiel die ausgeblendete Zeilen einfach übersprungen werden?

PS: in den Ausgeblendeten Zeilen befinden sich die Formel welche dann durch SVerweis in andere Tabelle die Daten ausgibt.

Vielen Dank

[Kuwer]

Hallo,

verschiebe doch diese (ausgeblendeten) Zeilen nach außerhalb der Tabelle, denn die müssen ja nicht da mittendrin sein!?

Gruß Uwe

[Pirat2015]

So simpel, Vielen Dank

[Pirat2015]

Ich habe noch ein Problem:

ich möchte bestimmte Zeilen ausblenden:
Damit ich durchgehen ausblenden kann habe ich mit folgenden Makro gelöst:

Sub Zellenausblenden()
ActiveSheet.Rows(2).Hidden = True
ActiveSheet.Columns("B:AM").Hidden = True
End Sub

Ich möchte aber eine weiter Schaltfläche welche dann Zeilen B-C, E-F, H, U-Z, AF-AH und AM ausblendet

wie muss dann das Makro aussehen?

[MisterBurns]

Es gibt keine Zeile B oder C.
Und du hast doch schon die Lösung hingeschrieben, was hält dich denn davon ab, einfach nur die Buchstaben anzupassen?

[Pirat2015]

ich meinte Zellen, wie verbinde ich einzelne Zellen mit & Zeichen geht es nicht

so geht's nicht:

Sub Zellenausblenden()
ActiveSheet.Rows(2).Hidden = True
ActiveSheet.Columns("B:C")("E:F")("H")("U:Z")("AF:AH")("AM").Hidden = True
End Sub

[MisterBurns]

Es gibt auch keine Zelle B. Nur eine Spalte B. Mir ist noch immer unklar, was du möchtest.

[Pirat2015]

ich möchte mit Makro Spalten B-C, E-F, H, U-Z, AF-AH und AM ausblenden können.
Wie ist die Makro dafür?

[Case]

Hallo, :19:

so: :21:

Code:

Option Explicit
Public Sub Main()
    ActiveSheet.Range("B:C, E:F, H:H, U:Z, AF:AH, AM:AM").EntireColumn.Hidden = True
End Sub

[MisterBurns]

Oder, falls man sich mit VBA nicht so gut auskennt einfach so...

Code:

ActiveSheet.Columns("B:C").Hidden = True
ActiveSheet.Columns("E:F").Hidden = True
ActiveSheet.Columns("H").Hidden = True
... etc. etc.

 Ich weiß, klingt komisch. Ist aber so.