Wie lasse ich ein Makro "springen"?
Oliver
Ich habe folgendes Makro:
Sub Übernahme()
Dim laR As Long
With Sheets("Tabelle1")
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("Suchmaske").Range("C5").Value
.Cells(laR, 4).Value = Sheets("Suchmaske").Range("K25").Value
.Cells(laR, 5).Value = Sheets("Suchmaske").Range("K26").Value
.Cells(laR, 6).Value = Sheets("Suchmaske").Range("K28").Value
.Cells(laR, 7).Value = Sheets("Suchmaske").Range("K29").Value
.Cells(laR, 8).Value = Sheets("Suchmaske").Range("K30").Value
.Cells(laR, 9).Value = Sheets("Suchmaske").Range("K31").Value
.Cells(laR, 10).Value = Sheets("Suchmaske").Range("K32").Value
.Cells(laR, 11).Value = Sheets("Suchmaske").Range("K33").Value
End With
Dieses Makro überträgt Werte aus bestimmten Zellen aus dem Arbeitsblatt "Suchmaske" in "Tabelle1".
Nun möchte ich aber, das bei Makroausführung auch in das Arbeitsblatt "Tabelle1" "gesprungen" wird, so dass ich gleich sehe,
wohin übertragen wurde.
By the way habe ich zwar ein Makro, das "springen" kann:
Sub Uebernahme()
Sheets("Tabelle2").Select
Dim laR As Long
laR = Cells(Rows.Count, 2).End(xlUp).Row
Cells(laR + 1, 1).Value = Sheets("Tabelle1").Range("B4").Value
Cells(laR + 1, 2).Value = Sheets("Tabelle1").Range("D4").Value
Cells(laR + 1, 3).Value = Sheets("Tabelle1").Range("F4").Value
End Sub
aber ich weiß nicht, welcher Teil es "springen" läßt?!?
Vielen Dank für kommende Hilfe,
Oliver