Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
to 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
to 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
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#4
Hallo Ralf

Ich habe alles ausprobiert und nichts ging

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

MfG BD
to 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.
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to 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.
to 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;"")
to 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.
to 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
to 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.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Grafik mit Makro über Bedingung aktivieren hellidor 2 130 05.10.2016, 08:15
Letzter Beitrag: hellidor
  Entfernte Hyperlinks wieder aktivieren NiSche22 7 313 16.08.2016, 12:01
Letzter Beitrag: Kuwer
  VBA - Zellschutz aktivieren, wenn in einer anderen Zelle ein bestimmter Wert steht Naddus0207 12 880 08.06.2016, 13:09
Letzter Beitrag: Rabe
  Einen beliebigen Tab aktivieren über VBA jovicic 14 1.085 05.06.2016, 11:07
Letzter Beitrag: mumpel
  Vba Excel Checkbox aktivieren auf einer Webseite preis6 0 384 01.06.2016, 17:47
Letzter Beitrag: preis6
  Kontrollkästchen mit Tastatur (de-)aktivieren MarkusJosef 13 2.167 08.12.2015, 11:23
Letzter Beitrag: Rabe
  Tabellenfilter mit VBA aktivieren/deaktivieren Thomy90 9 1.214 13.10.2015, 14:25
Letzter Beitrag: Thomy90
  Dynamische Trendlinienformel auslesen und Aktivieren BigDog 0 509 03.06.2015, 07:55
Letzter Beitrag: BigDog
  Makro - Nach Zell eingabe, gewiese Zellen Entsperren oder Sperren! BadDog81 1 1.082 16.04.2015, 10:30
Letzter Beitrag: Steffl
  Nach dem Scrollen Excelzelle ganz oben links auslesen und aktivieren können sotaros 3 1.347 16.11.2014, 11:43
Letzter Beitrag: Kuwer

Gehe zu:


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