Hilfe office 2003 zu Office 97
11.10.2007 18:02:48
Tino
benötige mal Hilfe bei einem Code der unter Office Excel 2003 erstellt wurde aber unter Version 97 nicht Funktioniert.
wie und welchen Teil vom Code muss ich umstellen damit er unter Version 97 läuft.
Private Sub Monat_Change()
Dim Bereich As Range
If UserForm1.Monat = "Monat" Then GoTo alleleer
Set Bereich = Range("A8:A19").Find(UserForm1.Monat)
UserForm1.Kunde = Round(Bereich.Offset(0, 1), 2)
UserForm1.Kunde = Round(Bereich.Offset(0, 1), 2)
UserForm1.Mitarbeiter = Round(Bereich.Offset(0, 8), 2)
UserForm1.Eigenkap = Round(Bereich.Offset(0, 15), 2)
UserForm1.Forder = Round(Bereich.Offset(0, 22), 2)
UserForm1.Fonds = Round(Bereich.Offset(0, 28), 2)
Exit Sub
alleleer:
UserForm1.Kunde = ""
UserForm1.Mitarbeiter = ""
UserForm1.Eigenkap = ""
UserForm1.Forder = ""
UserForm1.Fonds = ""
End Sub
Danke für die Unterstützung
Gruß
Tino