1. Er soll mir das hin und her laufen von Zelle zu Zelle nicht anzeigen während das Makro läuft (visible = False) -- macht er aber trotzdem. Warum?
2. Am Ende des Makros öffnet er immer das VBA Fenster (den VBA Editor). Warum?
Ansonsten läuft es perfekt.
Wäre schön wenn Jemand mal rüberschauen könnte. Danke im Voraus.
Hier der Code:
Sub Baureihe_Name()
Dim z As Integer 'maximalZeilen
Range("V4").Select
z = ActiveCell.Value
Application.VBE.MainWindow.Visible = False
Range("C4").Select
For i = 1 To z
If ActiveCell.Value = "" Then
ActiveCell.Offset(-1, 0).Select
x = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = x
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
' SALACK Name benennen
Range("B4").Select
For i = 1 To z
ActiveCell.FormulaLocal = "=Z(0)S(1)& Z(0) S(3)"
ActiveCell.Offset(1, 0).Select
Next i
Application.VBE.MainWindow.Visible = True
End Sub