Makro bleibt hängen ???
03.12.2003 12:01:19
peter
habe mir folgendes Makro zusammengestolpert.Das Makro wirt mit einem Button auf dem Tabellenblatt"Tabelle_aus_Kvasy" gestartet.
Warum bleibt das Makro an dieser Stelle hängen ??????.Das Tabellenblatt wird noch gewechselt.
***
Range("A5000").Select
***
Option Explicit
Private Sub CommandButton1_Click()
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
Dim azelle
Dim TB
'Dim blatt2
a1 = ActiveCell
a2 = ActiveCell.Offset(0, 1)
a3 = ActiveCell.Offset(0, 8)
a4 = ActiveCell.Offset(0, 7)
'blatt2 = Application.ActiveSheet.Name
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Tagesbestellung").Activate
Range("A5000").Select
Selection.End(xlUp).Select
azelle = ActiveCell.Row
Cells(azelle + 1, 1).Select
azelle = ActiveCell.Row
Cells(azelle, 1).Value = a1
Cells(azelle, 2).Value = a2
Cells(azelle, 3).Value = a3
Cells(azelle, 4).Value = a4
ThisWorkbook.Sheets("Tabelle_aus_Kvasy").Activate
Application.ScreenUpdating = True
End Sub
Danke schon mal für eure Hilfe
Gruss
Peter