Codeoptimierung
21.02.2019 18:49:32
Lothar
Wie kann ich dieses Makro ohne das 'select' und 'activate' zum Laufen bringen?
Irgendwie habe ich da eine Gehirnwindung zu wenig...
Sub schreibeBewegungsnummer()
Dim isinout As String
isinout = Tabelle2.Range("N1").Value 'der Name der Sortentabelle
If Tabelle2.Range("N1").Text = "" Then
Exit Sub
Else
Sheets(isinout).Activate
End If
ActiveCell.Value = Tabelle2.Range("M1").Value 'die Bewegungsnummer in die Zelle
If ActiveCell.Offset.Address = ("$K$2") Then 'bei Ende ist, fang von vorne an
ActiveCell.Offset(0, -9).Select
Else
ActiveCell.Offset(0, 1).Select 'sonst gehe nur eine zelle weiter
End If
Tabelle2.Range("N1").Value = "" 'setze Eintrag für Sortenauswahl auf null
End
Sub