einfügen in Bereich und rechts daneben
07.12.2016 13:19:33
Julia
ich habe wieder mal ein Problem:
Wie ihr wahrscheinlich unten im Makro sehen könnt,
kopiere ich die Formel aus einer Zelle, suche dann den Begriff "y" in der Tabelle, lasse ihn markieren, füge dort per Paste Spezial die Formel ein.
Und nun das Problem: ich möchte dass er genau diesen neuen Bereich kopiert und in alle Zellen, die rechts von diesem markierten Bereich liegen (d.h. Spalte M bis NN)
mein bisheriger Code:
Wäre toll wenn mir da jemand helfen könnte!
Sub SUCHEundFÜGEformelEIN()
'SCHRITT 2: 'Hier schreiben mit welches Blatt aktiv sein soll:
Sheets("DATEN-WORK").Select
'SCHRITT 3: 'Wo ist die Formel, die nachher eingefügt wird?:
Range("B1").Select
Selection.Copy
Dim c As Range
Dim firstAddress
Dim str
Dim Bereich As Range
Dim start As Double
'SCHRITT 4:
'Wonach wird gesucht, d.h. welche Zellen
'werden markiert und mit der oben kopierte Formel versehen?:
str = "y"
With Worksheets("DATEN-WORK").Cells
Set c = .Find(str, LookIn:=xlValues)
If c Like str Then Set Bereich = c
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = .FindNext(c)
If c Like str Then Set Bereich = Union(c, Bereich)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
Bereich.Select
Debug.Print Timer - start
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("L13:NN22").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End
Sub