Macro arbeitet sehr langsam Call
14.04.2005 16:16:11
Marcel
ich habe das Problem das ein Programmteil auf einem Blatt sehr sehr langsam läuft ich schreibe mal einen Auszug aus einem Makro
Das entprechende TB ist Tabelle14 wisst Ihr voran das liegt?
vielen Dank Marcel
Auszug***************************************************
Tabelle4.Select 'Hochkomma im Wertebereich entfernen
Range("B17").Value = Range("B17").Value
Range("A28:F5000").Value = Range("A28:F5000").Value
Range("A28").Select
Tabelle14.Select 'Hochkomma im Wertebereich entfernen
Range("H15:AE17").Value = Range("H15:AE17").Value
Call hk1_weg_zelle_b
Call hk1_weg_zelle_c
Call hk1_weg_zelle_g
Range("G17").Select
Tabelle15.Select
Call hk1_weg_j
Call hk1_weg_zelle_a
Sheets("Termin").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "1"
Selection.Font.ColorIndex = 2
Selection.Copy
Range("J17:J10000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("J17").Select
Application.CutCopyMode = False
**************************************************Auszug ende
Sub hk1_weg_zelle_a()
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
Range("A" & i).Activate
ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell))
Next i
End Sub
Private Sub hk1_weg_zelle_b()
endup = Range("B65536").End(xlUp).Row
For i = 1 To endup
Range("B" & i).Activate
ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell))
Next i
End Sub
Private Sub hk1_weg_zelle_c()
endup = Range("C65536").End(xlUp).Row
For i = 1 To endup
Range("C" & i).Activate
ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell))
Next i
End Sub
Private Sub hk1_weg_a()
Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Sub
Private Sub hk1_weg_b()
Columns("B:B").TextToColumns Destination:=Range("B1"), _
DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Sub
Private Sub hk1_weg_c()
Columns("C:C").TextToColumns Destination:=Range("C1"), _
DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Sub