Clever-Excel-Forum

Normale Version: Makro aktivieren per Zell ein gabe!
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
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
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
(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
Hallo Ralf

Ich habe alles ausprobiert und nichts ging

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

MfG BD
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.
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!
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;"")
Hallo,

das geht so nicht! Du kannst in einer Zelle nur eine Formel oder einen Wert haben. Deine Formel müsste in F stehen!
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
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
Seiten: 1 2