07.01.2019, 13:31
07.01.2019, 13:38
Hier kurz meine Sicht.
Habe einige Zellen ausgewählt und auf 'Delete' getippt und siehe dah...
https://youtu.be/1cJ2hUwECyQ
Habe einige Zellen ausgewählt und auf 'Delete' getippt und siehe dah...
https://youtu.be/1cJ2hUwECyQ
07.01.2019, 13:56
Hallo,
versuche es mal so ....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Sheets("Eingabe").Range("A34") Then 'Überprüft, ob Zelle A34 aus Tabellenblatt "Eingabe" geändert wurde
Range("B39") = Sheets("Daten").Range("B39") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B39 in Zelle B39 ein
Range("C39") = Sheets("Daten").Range("B40") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B40 in Zelle C39 ein
End If
If Target.Address = Sheets("Eingabe").Range("B39") Then 'Überprüft, ob Zelle B39 aus Tabellenblatt "Eingabe" geändert wurde
Range("C39") = Sheets("Daten").Range("B40") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B40 in Zelle C39 ein
End If
End Sub
LG
Marcus
versuche es mal so ....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Sheets("Eingabe").Range("A34") Then 'Überprüft, ob Zelle A34 aus Tabellenblatt "Eingabe" geändert wurde
Range("B39") = Sheets("Daten").Range("B39") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B39 in Zelle B39 ein
Range("C39") = Sheets("Daten").Range("B40") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B40 in Zelle C39 ein
End If
If Target.Address = Sheets("Eingabe").Range("B39") Then 'Überprüft, ob Zelle B39 aus Tabellenblatt "Eingabe" geändert wurde
Range("C39") = Sheets("Daten").Range("B40") 'Trägt den Wert aus Tabellenblatt "Daten", Zelle B40 in Zelle C39 ein
End If
End Sub
LG
Marcus
07.01.2019, 14:35
Ich schau mal
07.01.2019, 14:36
Die Meldungen kommen jetzt nicht mehr, aber mit dem "Option Explicit" funktioniert der Sub darunter nicht...
07.01.2019, 14:48
Hallo,
in die erste Zeile kommt immer Option Explicit.
Welche Sub darunter? Es war nur eine da.
Meiner Meinung nach, ich habe nicht so die Ahnung, fehlt bei deinem Code eh die Hälfte. Zum Bleistift :
If Targe..Addresst = Sheets("Eingabe").Range("A34") Then
Hier steht auf Deutsch: Wenn die Ziel Adresse A34 dann
Was soll denn da stehen? Es fehlt mm ein "=" und ein Argument.
Lg
Marcus
in die erste Zeile kommt immer Option Explicit.
Welche Sub darunter? Es war nur eine da.
Meiner Meinung nach, ich habe nicht so die Ahnung, fehlt bei deinem Code eh die Hälfte. Zum Bleistift :
If Targe..Addresst = Sheets("Eingabe").Range("A34") Then
Hier steht auf Deutsch: Wenn die Ziel Adresse A34 dann
Was soll denn da stehen? Es fehlt mm ein "=" und ein Argument.
Lg
Marcus
07.01.2019, 15:26
Hab den Code von Misterburns bekommen, siehe Post von Anfang an...
Mit Sub meine ich die eigentliche Funktion des Makro funktioniert nicht mehr
Mit Sub meine ich die eigentliche Funktion des Makro funktioniert nicht mehr
07.01.2019, 17:08
Hallo,
soviel zum Thema saubere programmierung. Mister Burns ist aber nicht schuld. Mir fehlen noch immer weitere Informationen ....
Lg
Marcus
soviel zum Thema saubere programmierung. Mister Burns ist aber nicht schuld. Mir fehlen noch immer weitere Informationen ....
Lg
Marcus
07.01.2019, 17:11
Was fehlt denn noch?
07.01.2019, 20:17
Hallöchen,
zum Bleistift wäre es interessant, was genau wo nicht funktioniert. Wenn Du Dein Auto nicht an bekommst, gibt es durchaus auch ein paar Dinge, die man als Laie sieht bzw. mitteilen kann, z.B. eine Tankanzeige die für leer steht oder der Zündschlüssel lässt sich nicht drehen oder es brennt kein Licht im Display oder oder ...
Wenn es mit Option Explicit Probleme gibt und Du hast keine Variablen im Makro, dann hast Du irgendwo einen Syntaxfehler, dass Excel annimmt, Du hättest Variable.
Hast Du Variablen, dann hast Du die entweder nicht deklariert oder irgendwo einen Syntaxfehler.
Wenn Du schreibst, dass das Sub nicht läuft, gehe ich mal davon aus, dass der Fehler erst dort auftritt. Ansonsten könnte es auch sein, dass Du Option Explicit falsch geschrieben hast.
Letztendlich kann es auch sein, dass Du oben Option Explicit hingeschrieben hast und unten im Code was geändert, und es hat gar nichts mit dem Option Explicit zu tun.
Du siehst, man kann sich viele Gedanken machen und das Meiste ist dann für die Katz, wenn man genauere Info's bekommt … :20:
zum Bleistift wäre es interessant, was genau wo nicht funktioniert. Wenn Du Dein Auto nicht an bekommst, gibt es durchaus auch ein paar Dinge, die man als Laie sieht bzw. mitteilen kann, z.B. eine Tankanzeige die für leer steht oder der Zündschlüssel lässt sich nicht drehen oder es brennt kein Licht im Display oder oder ...
Wenn es mit Option Explicit Probleme gibt und Du hast keine Variablen im Makro, dann hast Du irgendwo einen Syntaxfehler, dass Excel annimmt, Du hättest Variable.
Hast Du Variablen, dann hast Du die entweder nicht deklariert oder irgendwo einen Syntaxfehler.
Wenn Du schreibst, dass das Sub nicht läuft, gehe ich mal davon aus, dass der Fehler erst dort auftritt. Ansonsten könnte es auch sein, dass Du Option Explicit falsch geschrieben hast.
Letztendlich kann es auch sein, dass Du oben Option Explicit hingeschrieben hast und unten im Code was geändert, und es hat gar nichts mit dem Option Explicit zu tun.
Du siehst, man kann sich viele Gedanken machen und das Meiste ist dann für die Katz, wenn man genauere Info's bekommt … :20: