Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro aktivieren per Zell ein gabe!
#1
Hallo Excel Freunde

Ich habe in einer WENN Formel Makros zum einschalten
Zitat:=WENN(H11=1;$F$8;WENN(H11=1;Makro1();WENN(H11=2;"";WENN(H11=2;Makro2();WENN(H11=3;"";WENN(H11=3;Makro3();WENN(H11=4;"";WENN(H11=4;Markro4();WENN(H11="";"";WENN(H11="";Makro5;""))))))))))

Die Formel steht in Spalte H

Ausgangs Punkt ist immer die zeile wo die Formel Steht
z.B.: wie bei der Oberen Formel I11
Soll das Makro 1 in zelle F11 einen Text "Monatliche Zahlung" schreiben.
Makro 2 in zelle F11 einen Text "Sonder Zahlung" schreiben.
Makro 3 in Zelle F11 einen Text ("Zinsen" & Aktuelle Jahr) ausgehend welche Datum in Zelle E11 Steht
Makro 4 soll in zelle F11 Die Späre aufheben
Makro 5 soll in Zelle F11, die Zelle Spären und der Inhalt der Zelle Löschen.

Die Mokros sollen sich immer auf die Aktuelle Zeile beziehen
z.B.: Wenn ich die Formel in I12 stehen habe soll die Makros auch in Zeile 12 Aktiviet werden
wenn ich die Formel in I13 stehen habe soll die Makros auch in Zeile 13 Aktiviert werden
u.s.w.

Kann mir da jemand Bitte Helfen?

MfG BD
Antworten Top
#2
Ich habe einen Fehler in der Formel endeckt:

Zitat:=WENN(H12=1;$F$9;WENN(H12=1;Makro1();"")
Wenn ich die Formel so Mache wird der Rote Bereich Nicht mit benutzt!

Wie Kann ich Die Formel gestalten das 2 [Dann_Werte] gleichzeitig aktiviert wird?

MfG BD
Antworten Top
#3
(19.03.2015, 09:39)BadDog81 schrieb: Ich habe einen Fehler in der Formel endeckt:


Zitat:=WENN(H12=1;$F$9;WENN(H12=1;Makro1();"")
Wenn ich die Formel so Mache wird der Rote Bereich Nicht mit benutzt!

Wie Kann ich Die Formel gestalten das 2 [Dann_Werte] gleichzeitig aktiviert wird?

MfG BD

Hi,

mit UND( oder ODER( zwischen dem zweiten WENN( und H
Antworten Top
#4
Hallo Ralf

Ich habe alles ausprobiert und nichts ging

Gibt es noch mehr Möglich keiten oder eine Fertige Formel?

MfG BD
Antworten Top
#5
Hi,

dein Anliegen erscheint mir etwas wirr. Wieso sollen die bestimmten Texte mit einem Makro geschrieben werden? Das kannst du doch genauso leicht mit einem Verweis erreichen - vorausgesetzt, ich habe dich überhaupt verstanden.


Zitat:Ich habe einen Fehler in der Formel endeckt:


Zitat: schrieb:=WENN(H12=1;$F$9;WENN(H12=1;Makro1();"")
Wenn ich die Formel so Mache wird der Rote Bereich Nicht mit benutzt!

Diese Formel kann per se nicht das erwünschte Ergebnis bringen - auf der einen Seite soll bei einer 1 in H12 der Inhalt der Zelle F9 angezeigt werden. Aber gleichzeitig soll bei selber Bedingung ein Makro gestartet werden. Das passt doch nicht.

Aus meinem Verständnis heraus für dein Problem mal ein Vorschlag:


Tabelle1

FGHIJKL
12monatl. Zahlung
23Sonderzahlung
34ich zahle nichts
45habe fertig
5
6
7
8
9hier steht was
10
11monatl. Zahlung
122
13
Formeln der Tabelle
ZelleFormel
I11=WENN(H12=1;F9;SVERWEIS(H12;K1:L4;2;0))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8


Sollte das nicht deinen Vorstellungen entsprechen, dann stelle uns bitte deine Tabelle vor.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#6
Hallo,

1. Du kannst kein Makro direkt über eine Formel starten!
2. Du kannst einer Bedingung keine zwei so unterschiedliche Anweisungen mitgeben, wie es hier bei Dir der Fall ist!
3. Wenn Du das ganze über Zahlen in H machen willst, dann genügt ein (1!) Makro vom Typ Worksheet_Change!
4. Sind hier soviel WENN unsinnig!

Lies mal das: http://www.excel-inside.de/vba-loesungen...nn-starten

Mein Ansatz:


Code:
private Sub worksheet_change(byval Target as Range)
If Target.count>1 then exit sub
if intersect(Target,Range("H:H")) is nothing then exit sub
activesheet.unprotect
select case target.value

 Case 1
  cells(target.row,6)="Monatliche Zahlung"
 case 2
  cells(target.row,6)="Sonder Zahlung"
 case 3
  cells(target.row,6)="Zinsen" & Year(Range("E11"))
 case 4
  cells(target.row,6).locked= false
 case 5
  cells(target.row,6).clear
  cells(target.row,6).locked= true
 end select


activsheet.protect pw:="xxxx"

end sub
ungetestet!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#7
Wenn wir noch mal zum Makro kommen gibt es noch eine Andere Möglich kein:

Makro 1: z.B.
Wenn ich in denn Bereich H11:H60 eine "1" eingebe,
dann wir in der Aktuellen Zeile in F "Monatlich" eingegeben.

Dann Breuchte ich nur noch diese Formel in H11:H60
Zitat:=WENN(H12=1;$F$9;"")
Antworten Top
#8
Hallo,

das geht so nicht! Du kannst in einer Zelle nur eine Formel oder einen Wert haben. Deine Formel müsste in F stehen!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#9
Hallo Edgar

Dein Makro geht schon gut aber eins Fehlt noch:

Wenn in der Spalte H die Zahl gelöscht wird dann soll auch wieder die F zelle und der Zeile gelöscht werden.

Was kann man da noch machen?

MfG BD
Antworten Top
#10
Hallo,

dann so:


Code:
Private Sub worksheet_change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
Select Case Target.Value

  Case 0
    Cells(Target.Row, 6) = ""
    Cells(Target.Row, 11) = ""
 Case 1
  Cells(Target.Row, 6) = "Monatliche Zahlung"
 Case 2
  Cells(Target.Row, 6) = "Sonder Zahlung"
 Case 3
  Cells(Target.Row, 6) = "Zinsen" & Year(Range("E11"))
 Case 4
  Cells(Target.Row, 6).Locked = False
 Case 5
  Cells(Target.Row, 6).Clear
  Cells(Target.Row, 6).Locked = True
 End Select
End Sub
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste