Hallo wieder mal!
Nachdem ich die letzten Probleme durch/mit euch lösen konnte, muss ich nochmal etwas fragen:
Ist es möglich, Bereiche eines Tabellenblattes auszublenden?
genauere Beschreibung:
Ich möchte wenn ich Zelle M2 anklicke, den Bereich meines Tabellenblattes A10-R18 aublenden.
Hingegen wenn ich Zelle P1 anklicke, den Berecih meines Tabellenblattes A19-R21 ausblenden.
Bitte um Hilfe!!!
lg Alex
Ich möchte wenn ich Zelle M2 anklicke, den Bereich meines
Tabellenblattes A10-R18 aublenden.
Hingegen wenn ich Zelle P1 anklicke, den Berecih meines
Tabellenblattes A19-R21 ausblenden.
Hi Alexandra,
nach dem Codeeinfügen die Makros Passwortschützen ,
im Editor Rechtsklick auf VbaProjekt(Dateiname)—Eigenschaften…—Schutz…
in ein Modul :
Option Explicit
Public Speichern1 As Boolean, Speichern2 As Boolean
in das Klassenmodul von Tabelle1
Option Explicit
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim vorh As Boolean, ws As Worksheet, ws1 As Worksheet, Adr As String
Adr = Target.Address(0, 0)
Select Case Adr
Case "M2", "P1"
For Each ws In Worksheets
If ws.Name = "Geheim" Then vorh = True
Next ws
If vorh = False Then
Set ws1 = ActiveSheet
Worksheets.Add
ActiveSheet.Name = "Geheim"
ActiveSheet.Visible = xlVeryHidden
ws1.Activate
End If
If Adr = "M2" Then
Range("A10:R18").Copy Destination:=Worksheets("Geheim").Range("A10")
Range("A10:R18").ClearContents
Speichern1 = True
If Speichern2 = True Then Worksheets("Geheim").Range("A119:R121").Copy Destination:=Range("A19")
End If
If Adr = "P1" Then
Range("A19:R21").Copy Destination:=Worksheets("Geheim").Range("A119")
Range("A19:R21").ClearContents
Speichern2 = True
If Speichern1 = True Then Worksheets("Geheim").Range("A10:R18").Copy Destination:=Range("A10")
End If
Case Else
Exit Sub
End Select
End Sub
Ergibt sich folgendes Problem:
(Fehlermeldung)
Fehler beim Kompilieren: Erwartet: Zeilennummer oder Sprungmarke oder Anweisung oder Anweisungsende
HILFE!!!
Ergibt sich folgendes Problem:
(Fehlermeldung)
Fehler beim Kompilieren: Erwartet: Zeilennummer oder
Sprungmarke oder Anweisung oder Anweisungsende
Hi Alexandra,
Codes sind getestet, wahrscheinlich ging was beim Reinkopieren schief.
Gruß
Reinhard
Danke Ihr Lieben, ich hab mich mal wieder vertan.
Haut schon hin!!
LG Alex