Zeile einfügen
08.09.2016 10:17:42
Florian
habe ein kleines Problemchen,
ich muss hin und wieder in eine Tabelle eine Zeile einfügen.
möchte das gleichzeitig in mehreren Tabellen durchführen.
funktioniert auch alles soweit per Knopfdruck.
Was neu ist, das ich von der Letzten Zeile aus 25Zeilen weiter oben die Zeile einfügen möchte.
Private Sub CommandButton1_Click()
'Zeile anfügen.
Dim mySheets, oSH As Object
Set mySheets = Sheets(Array("SSB", "Gestellbau", "Gasschrankbau", "Quellenbau", "Carrierbau", " _
_
Schweißerei"))
'Das Array Definiert den Umfang der Bearbeitung. In diesem Fall alle aufgeführten Tabellenblä _
_
tter.
For Each oSH In mySheets
'Schleife um die Befehle auf allen Tabellenblätern auszuführen
With oSH
Dim lngR As Long, lngLastRow As Long, lngLastCol As Long
lngLastRow = Application.Max(7, .Cells(.Rows.Count, 3).End(xlUp).Row)
lngLastCol = Application.Max(4, .Cells(3, .Columns.Count).End(xlToLeft).Column)
Range(.Cells(lngLastRow - 10, 1), .Cells(lngLastRow + 1, lngLastCol + 15)).Insert Shift: _
_
=xlShiftDown
End With
Next
End Sub
ist die Lösung dazu recht simpel?
LG Florian