damit friede ist:
nachfolgend mein code:
'---------------------------------------------------------------------------------------
’ module : aufgabenverteilung
’ author : schmelzer
’ date : 31.08.2009
’ purpose : allg. datenerfassung und auswertung
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
’
’ auswahl und rücksprung haushalt #############################################################
Private Sub auswahl_01_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub
Private Sub auswahl_01_subjumphaushalt_click()
Range(„a1“).Select: Range(„i37“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\haushalt“ & Range(„c80“).Value
End Sub
Private Sub auswahl_01_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung kontaktverwaltung ####################################################
Private Sub auswahl_02_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub
Private Sub auswahl_02_subjumpkontakte_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „c:\DailyOpera\KsDateien\kontakte\kskontakt.xls“
End Sub
Private Sub auswahl_02_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung geschaeftsvorfälle ###################################################
Private Sub auswahl_03_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=17
End Sub
Private Sub auswahl_03_subjumpgeschaeft_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „c:\dailyopera\ksdateien\geschaeft“ & Range(„g80“).Value
End Sub
Private Sub auswahl_03_home_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub
’
’ auswahl und rücksprung posteingang ##########################################################
Private Sub auswahl_04__click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub
Private Sub auswahl_04_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung zugangscodes #########################################################
Private Sub auswahl_05_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub
Private Sub auswahl_05_jumpcodes_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub
Private Sub auswahl_05_subjumpcodes_click()
Dim selzeil As Integer, selspa As Integer, auszeil As Integer, ausspa As Integer
Dim selspaname As Integer, selspazweck As Integer, selspacode As Integer
Dim auspaname As Integer, ausspazweck As Integer, ausspacode As Integer
Dim liste(200) As String, newzeile As Integer, anfang As Integer, ende As Integer
Dim marker As Integer
’ clear ausgabefeld
Range(„aj25:au43“).Value = " "
'definition von anfangszeile und wertespalte
30 anfang = 66
40 ende = 160
50 selspa = 19
ausspa = 30
60 newzeile = 65
’ selektion gleicher einträge für auswahl combobox
’ selektierter eintrag in " hilfsdateien " , zelle k110
70 For selzeil = anfang To ende
80 liste(selzeil) = Cells(selzeil, selspa).Value
90 If liste(selzeil) = liste(selzeil - 1) Then GoTo 130
100 newzeile = newzeile + 1
110 Cells(newzeile, ausspa) = liste(selzeil)
130 marker = newzeile
140 Next selzeil
’ definition von anfangszeile und wertespalte
150 anfang = 66: ende = 160
160 selzeil = 66: auszeil = 25
170 selspaname = 19: selspazweck = 21: selspacode = 24
180 auspaname = 36: ausspazweck = 38: ausspacode = 42
190 marker = 0
’ zuordnung der zeilennummern zu den einträgen und werteausgabe
200 For selzeil = anfang To ende
210 If Cells(selzeil, selspaname).Value Range(„k110“).Value Then marker = marker + 1: GoTo 260: ’ offset zeilennummern
220 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, auspaname).Value = Cells(selzeil, selspaname).Value
230 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, ausspazweck).Value = Cells(selzeil, selspazweck).Value
240 If Cells(selzeil, selspaname).Value = Range(„k110“).Value Then Cells(auszeil, ausspacode).Value = Cells(selzeil, selspacode).Value
250 auszeil = auszeil + 1: ’ offset zeilennummer zur ausgabe
260 Next
’ rücksprung zu subhome
270 Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub
Private Sub auswahl_05_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung briefbearbeitung #########################################################
Private Sub auswahl_07_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub
Private Sub auswahl_07_sub_click()
Call Open_Word(„e:\DailyOpera\Brief.doc“)
End Sub
’
’ auswahl und rücksprung faxbearbeitung #########################################################
Private Sub auswahl_08_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub
Private Sub auswahl_08_subjumpfax_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub auswahl_08_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung mailerstellung #########################################################
Private Sub auswahl_09_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=51
End Sub
Private Sub auswahl_09_subjumpmail_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub auswahl_09_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ auswahl und rücksprung computer ###############################################################
Private Sub auswahl_10_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub
Private Sub auswahl_10_sub_click()
’ code wird noch erstellt
End Sub
Private Sub auswahl_10_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub auswahl_11_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub
Private Sub auswahl_11_sub_click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\gesundheit“ & Range(„e110“).Value: Rem Diabetes
End Sub
Private Sub auswahl_11_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub auswahl_11_subjumpdiaet_Click()
Range(„a1“).Select: Range(„i36“).Select
Workbooks.Open „C:\DailyOpera\ksdateien\gesundheit“ & Range(„g110“).Value: Rem Diät
End Sub
Private Sub auswahl_12_Click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=68
End Sub
Private Sub auswahl_12_home_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
’
’ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub commandbutton11_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=37
End Sub
Private Sub commandbutton2_click()
ActiveWindow.SmallScroll toright:=19
End Sub
Private Sub commandbutton22_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub
Private Sub commandbutton23_click()
ActiveWindow.SmallScroll Down:=61
End Sub
Private Sub commandbutton24_click()
Range(„f17“).Select
End Sub
Private Sub commandbutton29_click()
ActiveWindow.SmallScroll up:=65
End Sub
Private Sub commandbutton3_click()
Range(„z14:aa20“).Select
End Sub
Private Sub commandbutton31_click()
10 Select Case MsgBox(„Tabelle speichern?“, vbOKCancel Or vbExclamation Or vbDefaultButton1, „hinweis“)
Case vbOK
20 ActiveWorkbook.Save
30 Case vbCancel
40 GoTo 60
50 End Select
60 Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton33_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton35_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton37_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton39_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton4_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=54
End Sub
Private Sub CommandButton40_Click()
Range(„s66:ad160“).Select
Selection.Sort Key1:=Range(„S66“), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=34
End Sub
Private Sub commandbutton41_click()
Range(„a85“).Select
End Sub
Private Sub commandbutton42_click()
Range(„a1“).Select: Range(„i36“).Select
End Sub
Private Sub commandbutton44_click()
Range(„a1“).Select
ActiveWindow.SmallScroll Down:=61
ActiveWindow.SmallScroll toright:=17
End Sub
Private Sub commandbutton45_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWorkbook.Close
Unload Me
End Sub
Private Sub commandbutton47_click()
Range(„a1“).Select: Range(„f15“).Select
End Sub
Private Sub commandbutton5_click()
Range(„a1“).Select: ActiveWindow.SmallScroll toright:=70
End Sub
Private Sub commandbutton51_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Private Sub commandbutton53_click()
Application.DisplayFullScreen = False
MsgBox „Daten werden gespeichert, Tableau wird geschlossen“, vbInformation, „hinweis“
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Private Sub commandbutton55_click()
ActiveWindow.WindowState = xlMinimized
End Sub
Private Sub commandbutton58_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub
'---------------------------------------------------------------------------------------
’ procedure : commandbutton34_click, einsprung von home
’ author : schmelzer
’ date : 04.09.2009
’ purpose : klassifizieren der einträge
'---------------------------------------------------------------------------------------
’
Private Sub commandbutton9_click()
Range(„a1“).Select: Range(„i37“).Select
End Sub
Zufrieden mit mir?
gruß Nikodemo
Zeig mal das Coding, wo der Fehler auftritt.