Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Enum ScreenArgs
HORIZONTAL
VERTIKAL
End Enum
Public Function ScreenResolution(HV As ScreenArgs) As Long
If HV = 0 Or HV = 1 Then ScreenResolution = GetSystemMetrics(HV)
End Function
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case ScreenResolution(0)
Case 1152
ActiveWindow.Zoom = 110
Case 1024
ActiveWindow.Zoom = 100
Case 800
ActiveWindow.Zoom = 75
Case 640
ActiveWindow.Zoom = 60
End Select
End Sub
Sub Makro1()
Worksheets(1).Cells(257).Activate 'oder select
ActiveWindow.FreezePanes = True
End Sub
Sub Makro1()
Worksheets(1).Select
Cells(257).Select
ActiveWindow.FreezePanes = True
End Sub
Dim LArt As String
Sub adressen_aktive1()
LArt = "A"
Kopieren
End Sub
Sub adressen_passive1()
LArt = "P"
Kopieren
End Sub
Sub adressen_ehrenmitglieder1()
LArt = "EM"
Kopieren
End Sub
Sub Kopieren()
Application.DisplayAlerts = False
Sheets("Dr").Delete
Sheets("V").Visible = True
Sheets("V").Copy before:=Sheets(2)
ActiveSheet.Name = "Dr"
Sheets("V").Visible = xlVeryHidden
Application.DisplayAlerts = True
Call druck_adress_listen1(LArt)
End Sub
Sheets("Dr").Range("A3:L" & SZähler - 1).Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), _
Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Sub Makro1()
'mit Macrorecorder aufgezeichnet
Range("A1:C4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
Sub Makro2()
With Range("A1:C4")
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
End With
End Sub