AW: Makro-Formel kopieren bis Zelle leer
24.05.2016 12:17:49
Julia
Hallo Erwin,
sorry, ich wollte dich nicht verwirren, hoffentlich kann ich dich wieder entwirren: ;)
Also deinen Löschbefehl habe ich immernoch drin, nur mit anderen Spalten, da ich noch ein paar Sachen hinzugefügt habe:
Dim rng As Range
Range("L3:P" & Rows.Count).Clear
Set rng = Range("A:A").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Keine leere Zelle in Spalte A?, bitte prüfen ..."
GoTo Ende
Else
Range(Cells(3, 12), Cells(3, 16)).Copy Destination:=Range(Cells(3, 12), Cells(rng.Row, _
16))
With Range(Cells(3, 12), Cells(rng.Row, 16))
.Copy
.PasteSpecial xlValues
End With
Application.CutCopyMode = False
End If
Danach wird die Tabelle vornedran aktualisiert
' Access Daten (Verknüpfung) aktualisieren
Sheets("DATA").Select
Range("H24").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Und im 3. Schritt soll die Formel aus Spalte L bis P kopiert werden, bis in Spalte A eine leere Zelle auftaucht. Dafür habe ich den Code versucht zu modifizieren. (Das mit Spalte 4-7 und 12-16 habe ich angepasst, war mein Fehler). Jetzt habe ich die Zellen, in denen die Formel drin steht kopiert, allerdings funktioniert das Paste immer noch nicht. Weißt du warum?
' Spalte L bis P ab Zeile 3 Formel einfügen
Sheets("DATA").Select
Range("L2:P2").Copy
Range("L3:P" & Rows.Count).Paste
Set rng = Range("A:A").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Keine leere Zelle in Spalte A?, bitte prüfen ..."
GoTo Ende
Else
Range(Cells(3, 12), Cells(3, 16)).Copy Destination:=Range(Cells(3, 12), Cells(rng.Row, _
16))
With Range(Cells(3, 12), Cells(rng.Row, 16))
.Copy
.PasteSpecial xlValues
End With
Application.CutCopyMode = False
End If
Ende:
End Sub
Bin dankbar über eine Idee :)
Viele Grüße
Julia