OT XL 97 öffnet datei nicht
13.05.2011 14:58:26
Reinhard
Hallo Hary,
ich konnte sie problemlos mit XL 2000 öffnen. Nachfolgend der gesamte Code der in den beiden vorhandenen Modulen stand/steht.
In DieseArbeitsmappe oder den Blattmodulen steht nix, mir unklar warum dein XL97 versagte.
Ich sehe da keinen Auto_Open-Code.
Und der Ereigniscode in einem Modul ist sowieso sinnlos.
Gruß
Reinhard
Option Explicit
Sub PwAus()
ActiveSheet.Unprotect
Range("A7").Select
End Sub
Sub PwEin()
ActiveSheet.Protect
Range("A7").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngEingabe As Range
Const strListe As String = "Tabelle3!A2:A13" 'Listenbereich
Set rngEingabe = Range("Tabelle4!A7:A100") 'Eingabebereich
If Not Application.Intersect(rngEingabe, Target) Is Nothing _
And Target.Row Mod 2 = 1 Then 'nur im Bereich und ungerade Zeilen
With ComboBox1
.ListFillRange = strListe
.ListRows = 12
.Top = Target.Top
.Left = Target.Left + Target.Width
.Visible = True
.LinkedCell = Target.Address
End With
Else
ComboBox1.Visible = False
End If
End Sub
Sub DruckOhneFarbe()
MsgBox "Es wird auf dem aktuellen Drucker OHNE Farbe ausgedruckt.", vbYes, "Max Info"
ActiveSheet.Unprotect
Range("A7:D39").Interior.ColorIndex = xlNone
Range("A7").Select
ActiveWindow.SelectedSheets.PrintOut , Copies:=1 'PrintPreview OHNE "Copies:=1"
Call FarbeSetzen
End Sub
Sub FarbeSetzen()
Range( _
"A7:D7,C8:D8,A9:B9,A11:B11,A13:B13,A15:B15,A17:B17,A19:B19,A21:B21,A23:B23,A25:B25,A27: _
B27,A29:B29,A31:B31,A33:B33,A35:B35,A37:B37,C7:D38" _
).Select
Selection.Interior.ColorIndex = 36
Range("A6").Select
ActiveSheet.Protect
End Sub
Sub InhaltGelbLoeschen()
ActiveSheet.Unprotect
Range("A7:D38").ClearContents
Range("A7").Select
ActiveSheet.Protect
End Sub