vba code mit probelm
16.09.2005 20:41:10
sebastian
wäre nett wenn da mal jemand dürber schauen könnente und mir hilft.
vielen dank, gruß seppel
Sub loeschen_kasse()
' Makro3 Makro
' Makro am 30.11.2004 von Sebastian aufgezeichnet
Application.ScreenUpdating = False
Mldg = MsgBox(" Wollen Sie die Daten unwiderruflich löschen? ", _
vbYesNo + vbQuestion, "Daten Kasse löschen?", "", 0)
If Mldg = 6 Then
' löschen
Sheets("Kasse").Select
Range("A2:H150").Select
ActiveWindow.ScrollRow = 2
Range("A2:H150,L2:U150").Select
Range("L2").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-126
ActiveWindow.ScrollColumn = 1
Range("D2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],"" "",RC[-2])"
Selection.AutoFill Destination:=Range("D2:D150"), Type:=xlFillCopy
Range("D2:D150").Select
Range("D150").Select
ActiveWindow.SmallScroll Down:=-120
Range("A2").Select
ActiveWorkbook.Save
End If
Application.ScreenUpdating = True
End Sub