Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Automatisch ausführen
 19.06.2019 15:16:48 Marta
NotSolved
19.06.2019 16:05:31 Gast25453
NotSolved
24.07.2019 12:58:50 Mike
Solved
29.07.2019 16:21:26 Marta
NotSolved

Ansicht des Beitrags:
Von:
Marta		 Datum:
19.06.2019 15:16:48		 Views:
1261		 Rating:
     
Antwort:
  Ja
Thema:
Makro Automatisch ausführen

Hallo Ihr Lieben,
ich würde gerne, dass mein Programm automatisch ausführbar ist, sobald ich in eine Zelle etwas ändere.
Folgendes Problem, in der Tabelle Questionnaire ändere ich die Stufen z.B. von 10 auf 0. Wenn ich eine 0 eintrage soll in andere Zelle eine Stuffe C vergeben werden. Ich möchte, dass die Stufe C automatisch vergeben wird sobald ich die Null eintrage. Ich habe schon mit: DieseArbeitsmappe:Privat Sub Worksheet_Change probieren.
Sobald ich das tue hängt mein Excel und ich muss Computer ausschalten :( oder neu starten. Weißt jemand wie ich das lösen kann ??? Danke für eure Hilfe

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Code kopierenSub
For n = 1 To 100
 
 
 
If Sheets("Questionnaire").Cells(24, 28) = "A" Then
 
    Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(196, 215, 155)
     
    ElseIf Sheets("Questionnaire").Cells(24, 28) = "B" Then
    Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(255, 255, 175)
     
    ElseIf Sheets("Questionnaire").Cells(24, 28) = "C" Then
    Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(218, 150, 148)
      
End If
 If Sheets("Questionnaire").Cells(12, 7) = "0" Or Cells(13, 7) = "0" Or Cells(14, 7) = "0" Or Cells(15, 7) = "0" Or Cells(16, 7) = "0" Or Cells(17, 7) = "0" Or Cells(18, 7) = "0" Or Cells(19, 7) = "0" Or Cells(20, 7) = "0" And Sheets("Questionnaire").Cells(24, 28) = "A" Or Sheets("Questionnaire").Cells(24, 28) = "B" Then
        Sheets("Questionnaire").Cells(24, 28) = "C"
         
         Else: Sheets("Questionnaire").Cells(24, 28) = Sheets("Questionnaire").Cells(24, 27)
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Automatisch ausführen
 19.06.2019 15:16:48 Marta
NotSolved
19.06.2019 16:05:31 Gast25453
NotSolved
24.07.2019 12:58:50 Mike
Solved
29.07.2019 16:21:26 Marta
NotSolved