Makro für Formel übertragen

Sub Raum_buchen_rückgängig() ' Raum_buchen_rückgängig Makro ActiveCell.Offset(0, 1).Range("A1").Select Selection.AutoFill Destination:=ActiveCell.Offset(0, -1).Range("A1:B1"), Type _ :=xlFillDefault ActiveCell.Offset(0, -1).Range("A1:B1").Select ActiveCell.Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Raum_buchen_rückgängig() Dim arrOFFSET, a arrOFFSET = Array(1, 2, -1, -2) For Each a In arrOFFSET If ActiveCell.Offset(, a) "" Then ActiveCell = ActiveCell.Offset(, a) Exit Sub End If Next a End Sub

Funktioniert leider noch nicht so ganz, wie es sollte, aber geht zumindest in die richtige Richtung.
Vielleicht sollte ich nochmal genauer erklären, welche Gegebenheiten vorliegen.
In der aktiven Zelle wird ursprünglich über eine Wenn-Dann-Sonst- Abfrage ein Inhalt (entweder "P" oder "O") erzeugt. Hier einmal die Formel:
=WENN(T60="U";"P";WENN(T60="F";"P";WENN(T60="T";"P";"O")))
Mithilfe eines Buttons kann diese Zelle mittels Makro (Raum_buchen) in Abhängigkeit vom Inhalt "P" oder "O" neu formatiert werden. Hier einmal der Code:


Private Sub CommandButton6_Click()
If ActiveCell.Value = "P" Then
Raum_buchen
End If
If ActiveCell.Value = "B" Then
MsgBox ("Buchung in der Tabelle eintragen")
End If
End Sub

Bei "O" passiert nichts, bei "P" wird das Makro angewendet. Bei Anwendung des Makros wird ein neuer Inhalt ("B") unabhängig von der ursprünglichen Wenn-Dann-Sonst-Abfrage erzeugt. Die erzeugte Infobox ist hier irrelevant.
Das benötigte Makro (Raum_buchen_rückgängig) beschrieben in meiner ersten Nachricht soll nun mithilfe eines weiteren Buttons ausgeführt werden. Damit soll nun die Wenn-Dann-Sonst-Abfrage aus den Nachbarzellen in die aktive Zelle übertragen werden. Die Reihenfolge so, wie in der ersten Nachricht beschrieben.
Bei deinem Code Rudi, wird auf jeden Fall die Reihenfolge richtig ausgeführt und bringt auch ein Ergebnis, dass in die richtige Richtung geht. Es wird allerdings nicht die Wenn-Dann-Sonst-Abfrage in die aktive Zelle übertragen, sondern lediglich ein "P" oder ein "O", abhängig vom erzeugten Inhalt der Nachbarzelle, kopiert.
Ich hoffe es ist so verständlich und dass du mir noch weiterhelfen kannst.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro für Formel übertragen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread