Ich hab folgendes Makro um aus einem Userform die Daten auszulesen und auf verschiedene Tabellenblätter auszulesen.
Private Sub cmdeingabe_Click()
If TextBox2 = "" Then
MsgBox ("Die Anzahl Tage eingeben!")
TextBox2.SetFocus
Exit Sub
End If
Dim Loletzte As Long
With Worksheets("Eingabe")
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(Loletzte, 1) = cboNamensliste
.Cells(Loletzte, 2) = cboGrund
.Cells(Loletzte, 3) = CDbl(TextBox2)
.Cells(Loletzte, 4) = Calendar1
.Cells(Loletzte, 5) = Calendar2
.Cells(Loletzte, 6) = TextBox1
End With
With Worksheets(Me.cboNamensliste.Text)
Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(Loletzte, 1) = cboNamensliste
.Cells(Loletzte, 2) = cboGrund
.Cells(Loletzte, 3) = CDbl(TextBox2)
.Cells(Loletzte, 4) = Calendar1
.Cells(Loletzte, 5) = Calendar2
.Cells(Loletzte, 6) = TextBox1
End With
Me.TextBox2 = ""
Me.TextBox1 = ""
End Sub
Nun wenn ich den zweiten Teil des Makros, ab "With Worksheets(Me.cboNamensliste.Text)", eingebe läuft es sehr langsam ab. Gibt es eine Möglichkeit das Makro so zu ändern das es schneller läuft?
Besten Dank
Gruss
Roger