Modul 1:
Sub Makro1()
If IsNumeric(Sheets("Tabelle1").Range("A1")) And Sheets("Tabelle1").Range("A1") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Tabelle1").Range("A1")
Else
MsgBox "Keine Daten zum Ausdruck vorhanden!", vbInformation, "Heute schon gelacht?"
End If
End Sub
Sub Schaltfläche2_BeiKlick()
MsgBox "erstellt von Markus H." & vbCr & vbCr & "für das STUWE DD", vbInformation, "Mahnwesen 2004"
End Sub
Modul 2:
Sub Schaltfläche144_BeiKlick()
Range("A13:EB13").Select
Selection.AutoFilter
Range("A10").Select
End Sub
Sub Makro4()
bitte_warten.Show
Application.Wait (Now + TimeValue("0:00:03")) 'dies mache ich immer hinter das Laden einer UF auf diesem wege, da manche PC länger brauchen um sie ganz anzuzeigen - sonst hast evtl nur ne weiße UF
Range("A9").Select
Range("A13:EB1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A4:EB5"), Unique:=False
bitte_warten.Hide
End Sub
Sub Makro5()
bitte_warten4.Show
Application.Wait (Now + TimeValue("0:00:03")) 'dies mache ich immer hinter das Laden einer UF auf diesem wege, da manche PC länger brauchen um sie ganz anzuzeigen - sonst hast evtl nur ne weiße UF
On Error Resume Next
ActiveSheet.ShowAllData
bitte_warten4.Hide
End Sub
Sub Makro13()
bitte_warten3.Show
Application.Wait (Now + TimeValue("0:00:03")) 'dies mache ich immer hinter das Laden einer UF auf diesem wege, da manche PC länger brauchen um sie ganz anzuzeigen - sonst hast evtl nur ne weiße UF
On Error Resume Next
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
bitte_warten3.Hide
End Sub
Sub Makro14()
bitte_warten2.Show
Application.Wait (Now + TimeValue("0:00:03")) 'dies mache ich immer hinter das Laden einer UF auf diesem wege, da manche PC länger brauchen um sie ganz anzuzeigen - sonst hast evtl nur ne weiße UF
On Error Resume Next
Worksheets("Liste").AutoFilterMode = False
ActiveSheet.ShowAllData
Rows("1:8").Select
Selection.EntireRow.Hidden = True
Range("A9").Select
bitte_warten2.Hide
End Sub
Modul 3:
Sub demosuche()
SendKeys "%B"
SendKeys "S"
End Sub
Modul 4:
Sub Mahndruck()
If IsNumeric(Sheets("Mahnung").Range("BE2")) And Sheets("Mahnung").Range("BE2") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Mahnung").Range("BE2")
Else
MsgBox "Keine Daten zum Ausdruck vorhanden!", vbInformation, "Heute schon gelacht?"
End If
End Sub
Sub Ablagedruck()
If IsNumeric(Sheets("Zahlungseingang").Range("BG3")) And Sheets("Zahlungseingang").Range("BG3") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Zahlungseingang").Range("BG3")
Else
MsgBox "Keine Daten zum Ausdruck vorhanden!", vbInformation, "Wie macht man einen aus nur 50 Cent?"
End If
End Sub
Modul 5:
Sub sachbearbeiter()
Sheets("Sachbearbieter").Select
Range("C1").Select
End Sub
Sub list()
Sheets("Liste").Select
Range("DP12").Select
End Sub
Sub vor()
Sheets("Liste").Select
Range("A12").Select
End Sub
Sub zuruek()
Sheets("Liste").Select
Range("DP12").Select
End Sub
und dann noch 5 UF's
ich weiß, nicht sehr übersichtlich.. aber ich hätte nicht gedacht das ich so viel makros einbinden würde.
naja mal sehen was du so umbastelst.. MFG
Markus