Langsame Übernahme aus OptionButton
07.06.2007 18:55:00
lobby007
ich habe hinter einem Übernahmebutton folgenden Code:
Private Sub Uebernehmen2_Click()
Application.ScreenUpdating = False
Application.Calculation = xlManual
doit = False
Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, 3).Value = TextBox1.Value
Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, 4).Value = TextBox2.Value
'Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, 5).Value = TextBox3.Value
'TextBox1.ControlSource = "daten!c" & ComboBox1.ListIndex + 2
'TextBox2.ControlSource = "daten!d" & ComboBox1.ListIndex + 2
'TextBox3.ControlSource = "daten!e" & ComboBox1.ListIndex + 2
If M.Value = True Then
Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, 5).Value = "m"
Else
Worksheets("Daten").Cells(ComboBox1.ListIndex + 2, 5).Value = "w"
End If
Run Macro:="uebernahmeausdaten"
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
doit = True
ComboBox1.ListIndex = ComboBox1.ListIndex + 1
End Sub
Das "M" ist der übernahmebutton - entweder männlich oder weiblich. Das run macro übernimmt daten aus 2 blättern.
Alle Änderungen sind schnell nur wenn ich bei m/w bei dem Button M was ändere braucht er 15 sekunden und mehr.
Ich hatte mal calculation und screenupdating rausgenommen (oben und unten) aber dann übernimmt er m/w Änderungen gar nicht mehr was ich nicht verstehe.
Wer weiß Rat?
Gruß lobby