Office: VBA-Makro mit relativen Zellbezügen?

Hallo alle miteinander,
ich habe ein kleines Problem:
ich möchte mit einem Makro den Inhalt der aktiven Zelle (z.B. B2) ausschneiden (oder kopieren) und in eine Zelle kopieren, die jeweils 1 Zeile darüber (-1) und 11 Spalten nach rechts (+11) angeordnet ist (hier M1).
Dann soll die ganze Zeile der ursprünglich aktiven Zelle gelöscht werden (hier Zeile 2).
Wenn ich das Makro aufzeichne, merkt sich das VBA aber nur die Zellen B2, M1 bzw. Zeile 2 und nicht die relativen Bezüge.
Wie kann ich das ändern????

Grüße und DANKe
Eva

:)

 

Hallo evaneu1965,

ändere den VBA-Code folgendermaßen:

Code:

 

Moin, Eva,

Code:

Prüfung einbauen, dass die aktuelle Zeile größer als 1 ist - sonst gibt es einen Laufzeitfehler... *wink.gif*

 

Hallo Ihr beiden,
als vollständige Syntax habe ich nun das Folgende eingegeben:

Sub ausschneiden_KST2()
'
' ausschneiden_KST2 Makro
' Makro am 29.07.2009 aufgezeichnet
'
' Tastenkombination: Strg+a
'
With ActiveCell
Dim x As Long
Dim y As Long
Dim strWert As String
' Gibt die aktuelle Zeilen-Position zurück.
x = ActiveCell.Row
' Gibt die akuelle Spalten-Position zurück.
y = ActiveCell.Column
' Wert der aktuellen Zelle wird in Variable übergeben.
strWert = Selection
' Fügt den Wert jeweils 1 Zeile darüber und 11 Spalten nach rechts ein.
Cells(x - 1, y + 11) = strWert
' Aktuellen Zellen-Inhalt löschen.
Selection.Clear
With ActiveCell
.Offset(-1, 11).Value = .Value
.EntireRow.Delete
End With

End Sub

Aber irgendwas ist trotzdem noch falsch: das Makro macht gar nichts?!
Wie wäre es denn richtig?
(Sorry - ich bin im VBA-Code ein "blinder" Laie!).
Grüße Eva

 

Moin, evaneu1965,

siehe Anhang - möchtest Du den Inhalt entfernen oder die Zeile löschen?

 

1) den Inhalt in die andere Zelle einfügen (x-1, y+11)
2) dann die ganze Zeile löschen

Ich hab aus Deiner Anlage also .EntireRow.Delete genommen.
Somit lautet die vollständige Syntax jetzt:
With ActiveCell
Dim x As Long
Dim y As Long
Dim strWert As String
' Gibt die aktuelle Zeilen-Position zurück.
x = ActiveCell.Row
' Gibt die akuelle Spalten-Position zurück.
y = ActiveCell.Column
' Wert der aktuellen Zelle wird in Variable übergeben.
strWert = Selection
' Fügt den Wert jeweils 1 Zeile darüber und 11 Spalten nach rechts ein.
Cells(x - 1, y + 11) = strWert
.Offset(-1, 11).Value = .Value
'Für das physiche Löschen der Zeile
.EntireRow.Delete
End With

End Sub

Kann ich das auch noch so programmieren, dass ich mehrere Zellen gleichzeitig auswählen kann (z.B. Zelle B2; B4; B6; B345 ...) und der Befehl für jede Zeile einzeln ausgeführt wird?

Schon mal VIELEN Dank für die schnelle Hilfe.
Vielleicht habt Ihr ja noch einen Tipp für das zweite Problem.
Danke und Grüße
Eva

 

Moin, Eva,

es wäre nett, wenn Du mir mitteilen würdest, was am Makro in der Mappe nicht funktioniert.

Code:

Damit kann es aber passieren, dass der Inhalt überschrieben wird, weil zwei aufeinanderfolgende Zeilen gelöscht werden könnten...

 

Moin jinx,
die beiden Makros funktionieren beide 1A!!!!!!!! Danke!!!!!

In der zweiten Variante mit mehreren Zellen gibt es bei mir kein Problem, weil der eine zu kopierende Wert immer in der zweiten Zeile ist.
Die zweite Zeile ist damit dann leer und kann weg. Das hätte ich zwar auch am Ende mit Sortieren machen können, aber so hab ich die anderen Daten besser im Blick.

Also noch mal DANKE - das hat perfekt geholfen.
Grüße
Eva