AW: Zeile einfügen und Format der Vorgängerzeile
11.08.2014 00:17:18
Ewald
Hallo,
wenn ich das richtig verstehe, willst du in Spalte A nach der Artikelnr. suchen und beim letzten Vorkommen soll dann eine Zeile eingefügt werden.
Was noch unklar ist in welchen Spalten die Formeln stehen
Im folgenden Beispiel wird in Spalte A die Artikelnr. übernommen und in Spalte J die Formel. (war ja so in der Beispieldatei). Alle Formate werden übernommen.
teste mal
Private Sub CommandButton1_Click()
Dim oRange As Range
Dim aCell As Range
Dim bCell As Range
Dim ws As Worksheet
Dim Gefunden As String
Dim Zeile As Long
Dim SN As String
SN = Application.InputBox("Suchbegriff")
On Error GoTo Fehler
Set ws = Worksheets("Belegungsliste")
Set oRange = ws.Columns(1)
Set aCell = oRange.Find(What:=SN, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
Set bCell = aCell
Gefunden = aCell.Row
Do
Set aCell = oRange.FindNext(After:=aCell)
If Not aCell Is Nothing Then
If aCell.Address = bCell.Address Then Exit Do
Gefunden = Gefunden & ", " & aCell.Row
Else
Exit Do
End If
Loop
Else
MsgBox SN & " nicht gefunden"
Exit Sub
End If
Zeile = Right(Gefunden, 3)
Rows(Zeile + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & Zeile).Copy
Range("A" & Zeile + 1).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J" & Zeile).Copy
Range("J" & Zeile + 1).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Exit Sub
Fehler:
MsgBox Err.Description
End Sub
Der Code ist für einen Button gedacht, den Tabellennamen mußt du noch anpassen
Gruß Ewald