Hallo Günter,
in diesem Fall ist es aber die letzte lesbare Zeile in dem oben vorgestellten Bild.
(Bezug: Beiträge 16 und 17)
Hallo Uwe
Was muss ich ändern damit es geht?
wenn ich in G429 ein x mache wird überall ein x geschrieben das ist gut so,
aber wenn ich es lösche in G429 bleiben die anderen x vorhanden
und muss sie von Hand entfernen.
Gruss Hagi
Hi,
Ich habe mich in die Problematik Deiner Anfrage noch nicht eingearbeitet und ich bin auch nicht Uwe
aber ganz offensichtlich ist die Tatsache, daß Du alles unterhalb des "End Sub" löschen solltest weil da noch ein If aktiv ist.
Hallo Peter
Danke für Deine Antwort.
An alle die mir helfen besten Dank! :17:
Habe den Code geändert leider kommt dann der Fehler:
Hi Peter,
schön, dass du hier wieder kräftig mitmischt. Wenn's weiterhin bergauf geht, besteht doch hoffentlich die reelle Chance, dich im Herbst wieder zu treffen? Ich drücke dir auf jeden Fall die Däumchen.
Doch hierzu:
(14.06.2015, 20:42)Käpt schrieb: [ -> ]in diesem Fall ist es aber die letzte lesbare Zeile in dem oben vorgestellten Bild.
(Bezug: Beiträge 16 und 17)
ja, ich bin davon ausgegangen, dass der Code weitergeht und deshalb das End Sub fehl am Platz war. Habe aber die Möglichkeit doch offen gelassen, dass eines neues Makro beginnt und die Sub- bzw. Private Sub fehlen könnte. Aber du weißt ja auch, dass ich ich immer noch mit VBA hadere und ganz am Anfang stehe.
Hallo Hagi,
da Ralf mich bat, den Code umzustellen, hier meine Variante, bei der das auch mit G429 funktioniert.
Code:
Option Explicit 'nur ein Mal am Anfang jeder Codeseite
Private Sub Worksheet_Change(ByVal Target As Range) 'nur ein Worksheet-Change pro Worksheet
'Wenn die Zieladresse H3 ist
If Target.Address = "$H$3" Then
If Target.Value = "x" Then
Range("E4:E8").Value = "x"
Else
Range("E4:E8").Value = ""
End If
End If
'PVC-Sockel (Abzug Total für nicht Ausgeführte Arbeiten.)
If Target.Address = "$G$429" Then
If Target.Value = "x" Then
Range("G430:G452").Value = "x"
Else
Range("G430:G452").Value = ""
End If
End If
'Holzsockel (Abzug Total für nicht Ausgeführte Arbeiten.)
If Target.Address = "$G$456" Then
If Target.Value = "x" Then
Range("G457:G485").Value = "x"
Else
Range("G457:G485").Value = ""
End If
End If
'Endreinigung (Abzug Total für nicht Ausgeführte Arbeiten.)
If Target.Address = "$G$489" Then
If Target.Value = "x" Then
Range("G490:G495").Value = "x"
Else
Range("G490:G495").Value = ""
End If
End If
'Linol Reparatur (Abzug Total für nicht Ausgeführte Arbeiten.)
If Target.Address = "$G$529" Then
If Target.Value = "x" Then
Range("G530:G549").Value = "x"
Else
Range("G530:G549").Value = ""
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'nur ein Worksheet_BeforeDoubleClick pro Worksheet
If Not Intersect(Target, Range("H3,E4:E8")) Is Nothing Then
If Target.Count = 1 Then
Cancel = True
If Target.Value = "x" Then
Target.Value = ""
Else
Target.Value = "x"
End If
End If
End If
End Sub
Gruß Uwe
Hallo,
Du hast serienweise nicht mit End If abgeschlossene If's denen dann schon ein neues If folgt.
Ich würde auch meckern, wenn ich Excel wäre.
Übrigens, kein Mensch will hier mit Dir Karten spielen und es gibt auch niemanden, der mit Bildern großartig was anfangen kann und will.
Gibt es hier irgendwo eine aktuelle Datei die Du hochgeladen hast?
Hallo Günter,
Zitat:schön, dass du hier wieder kräftig mitmischt. Wenn's weiterhin bergauf geht, besteht doch hoffentlich die reelle Chance, dich im Herbst wieder zu treffen? Ich drücke dir auf jeden Fall die Däumchen.
Ich drücke mir auch die Däumchen, kannst'e glauben. Allerdings fürchte ich, daß mir immer noch die Zeit wegläuft und dann
ist da noch die Frage, ob die Ärzte mich fahren lassen. Aber immerhin, es sieht schon besser aus als in den letzten zwei Jahren.
Mal sehen, was draus wird. Ein bischen Zuversicht habe ich schon, wieder mal nach langer Zeit an einem Forentreffen teilzunehmen.
Die Hoffnung stirbt bekanntlich zuletzt.
Übrigens, das ist doch der TE, der so eindringlich darauf hingewiesen wurde, Option Explicit zu nutzen, oder?
Nachhaltig kann das aber nicht gewesen sein, weil Excel ihm das sonst ständig um die Ohren geballert hätte.
Hallo Uwe
Danke Ralf hat das schon gemacht Beitrag 18
Leider geht es nicht siehe Beitrag 24
auch mit 2 x End If gleicher Fehler.
Gruss Hagi
Hallo Hagi,
dann verweise ich Dich auf Beitrag 27!
Gruß Uwe