hat denn niemand eine Idee warum der Code von office97 nicht in XP laufen?
importieren hat leider auch nicht geklappt
vielen Dank im vorraus
vielleicht solltest Du mal den Code posten. Meine Code von 97 laufen alle unter XP.
Gruß Hajo
Private Sub Workbook_Open()
Workbooks.Open "Reifenprogramm 2003.xls"
UserForm6.Show
End If
End Sub
Private Sub Anzahl1_Change()
Anzahl1.ControlSource = ("G1")
End Sub
Private Sub Angebotbtn_Click()
Nametxt.Text = Clear
Vornametxt.Text = Clear
Fahrzeugtxt.Text = Clear
Kennzeichentxt.Text = Clear
End Sub
Private Sub Auswahlbox_Change()
Auswahltxt.Text = Auswahlbox.Value
End Sub
Private Sub Drucken_Click()
'
' DruckenReifenKV Makro
' Makro am 06.12.02 von AH Müller aufgezeichnet
'
If Sommerreifen.Value = True Then
Sheets("Kostenvoranschlag").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Reifendaten").Select
End If
If Winterreifen.Value = True Then
Sheets("KostenvoranschlagWI").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Winterreifen").Select
End If
End Sub
Private Sub Schliessenbtn_Click()
Sheets("Reifendaten").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Private Sub Sommerreifen_Click()
If Sommerreifen.Value = True Then
Sheets("Reifendaten").Select
ListBox1.RowSource = ("I6:P3000")
Auswahltxt.ControlSource = ("D2")
Anzahltxt.ControlSource = ("P5")
Nametxt.ControlSource = ("Kostenvoranschlag!B15")
Vornametxt.ControlSource = ("Kostenvoranschlag!B17")
Fahrzeugtxt.ControlSource = ("Kostenvoranschlag!D15")
Kennzeichentxt.ControlSource = ("Kostenvoranschlag!D17")
End If
End Sub
Private Sub Winterreifen_Click()
If Winterreifen.Value = True Then
Sheets("Winterreifen").Select
ListBox1.RowSource = ("I6:P3000")
Auswahltxt.ControlSource = ("D2")
Anzahltxt.ControlSource = ("P5")
Nametxt.ControlSource = ("Kostenvoranschlag!B15")
Vornametxt.ControlSource = ("Kostenvoranschlag!B17")
Fahrzeugtxt.ControlSource = ("Kostenvoranschlag!D15")
Kennzeichentxt.ControlSource = ("Kostenvoranschlag!D17")
End If
End Sub
Private Sub Suchebtn_Click()
Range("A4:F3000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D1:D2"), CopyToRange:=Range("I5:N3000"), Unique:=False
End Sub
Private Sub UserForm_Initialize()
Sommerreifen.Value = True
Winterreifen.Value = False
End Sub
bei dem Umfang würde ich mal schreiben lade die Datei hoch. Eine Anleitung gibt es hier
https://www.herber.de/forum/antworter/userfiles.htm
der Phad ist https://www.herber.de/user/
Gruß Hajo
ich habe mal nachgesehen die Datei ist nicht auf dem Server, darum geht der Link auch nicht.
Ich übertrage Sie immer mit Ws_FTP Pro
Gruß Hajo
Gruß Jörg
sie ist da ich schaue mir das mal an.
Gruß Hajo
vom Grungsatz
- solche großen Dateien sollten gepackt werden, nicht jeder hat eine Standleitung
- bitte auch in den einzelnen Registern überprüfen ob Strg+Ende = Tabellenende
- alle Variablen sollten vor der ersten Verwendung definiert werden (Option Explicit)
- auf select und ähnliche Sachen kann in VBA zu 99% verzichtet werden.
- leere Module sollten gelöscht werden.
Der Fehler lag nicht an dem Code sondern an der Datei, nachdem alles in eine neue Datei verschoben wurde lief es. Den Code habe ich mir nicht weiter angesehen.
Gruß Hajo
Gruß Jörg
ich habe mit der größe der Datei kein Problem, ich habe einé Standleitung. Aber eben nicht jeder.
Gruß Hajo