Makro "einschränken"?
Oliver
Ich habe eine kurze Frage:
Folgendes Makro überträgt Werte aus verschiedenen Tabellen in eine "Hilfstabelle".
Wie muss ich das Makro modifizieren, so dass die Auflistung der Werte
in Zeile 26 der "Hilstabelle" endet?
Sub Übernahme()
Sheets("Hilfstabelle").Select
Dim laR As Long
With Sheets("Hilfstabelle")
If .Cells(65536, 7).End(xlUp).Row + 1 > 7 Then laR = .Cells(65536, 7).End(xlUp).Row + 1 Else laR = 7
.Cells(laR, 3).Value = Sheets("Tabelle1").Range("C5").Value
.Cells(laR, 4).Value = Sheets("Tabelle2").Range("T7").Value
.Cells(laR, 5).Value = Sheets("Tabelle2").Range("T10").Value
.Cells(laR, 6).Value = Sheets("Tabelle1").Range("K25").Value
.Cells(laR, 7).Value = Sheets("Tabelle1").Range("K26").Value
.Cells(laR, 8).Value = Sheets("Tabelle1").Range("K28").Value
.Cells(laR, 9).Value = Sheets("Tabelle1").Range("K29").Value
.Cells(laR, 10).Value = Sheets("Tabelle1").Range("K30").Value
.Cells(laR, 11).Value = Sheets("Tabelle1").Range("K31").Value
.Cells(laR, 12).Value = Sheets("Tabelle1").Range("K32").Value
.Cells(laR, 13).Value = Sheets("Tabelle1").Range("K33").Value
End With
Range("C7").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("K27").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub
Gruß & Dank,
Oliver
Anzeige