Makro zum Austragen der Aufträge am Arbeitsplatz

[Onkel1013]

Hallo liebe Excel Gurus,

ich habe folgendes Problem...

Ich möchte meinen Arbeitsalltag erleichtern in dem ich nur noch mit einem Tastendruck meine Aufträge austragen kann.

Dies sieht in der regel so aus:

Ich bekomme einen Montierte Auftrag den ich in der Arbeitsmappe austragen muss.
1. Wird in Spalte A das X durch ein V ersetzt. (Füllung bleibt bestehen)
2. Wird in Spalte B bis E alles gelöscht und die keine Füllung mehr angewendet.

Mir würde es sehr helfen wenn ich einfach die ganze Zelle Markieren könnte und dann durch eine Tastenkombination die oben genannten Schritte automatisch geschehen würden.

Ich habe es schon selbst Versucht mit "Marko aufzeichnen" dies hat auch wunderbar Funktioniert Jedoch nicht als Markierte Zelle sondern immer nur z.B. A bis E 5.
Dies bringt mir leider nicht viel weil sich die Parameter ständig verändern.

Ich brauch als dieses Makro unbedingt für die von mir markierten Zellen.

Ich würde mich sehr freuen wenn jemand mein Problem lösen könnte.

[Fennek]

Hallo,

ein erster Versuch, da ich die Fragestellung nur teilweise überblicke.

Der Ansatz ist: Wenn in Spalte "A" ein "V" eingetragen wird, werden in dieser Zeile der Bereich B:E einschließlich Farben gelöscht.

(ungeprüft, also nicht debugged)

Code:

sub Worksheet_change(target as range)
if intersect(Target, Columns("A")) is nothing then exit sub
if target.value <> "V" then exit sub
range(cells(target.row, "B", cells(target.row, "E").clear
end sub

mfg

[Onkel1013]

Hallo,

ein erster Versuch, da ich die Fragestellung nur teilweise überblicke.

Der Ansatz ist: Wenn in Spalte "A" ein "V" eingetragen wird, werden in dieser Zeile der Bereich B:E einschließlich Farben gelöscht.

(ungeprüft, also nicht debugged)

Code:

sub Worksheet_change(target as range)
if intersect(Target, Columns("A")) is nothing then exit sub
if target.value <> "V" then exit sub
range(cells(target.row, "B", cells(target.row, "E").clear
end sub

mfg

 Hallo danke erstmal für deine Antwort :)
Wenn ich das so eingebe wie du beschrieben hast kommt folgende Fehlermeldung :(

[Fennek]

Hallo,

der Code gehört in den "Kopf" der Tabelle, also rechte Maustaste auf den Reiter und "Code anzeigen". Dann im linken obereb dropdown "worksheet" auswählen, danach in rechten Fenster das "change"-event.

Damit wird sowohl "sub ..." als auch "end sub" automatisch angelegt. Deshalb nur die anderen Zeilen dazwischen kopieren.

mfg

[Rabe]

Hi,

[ungeprüft, also nicht debugged)

da fehlen zwei schließende Klammern in der Range-Zeile und das ByVal

Code:

Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
   If Target.Value <> "V" Then Exit Sub
   Range(Cells(Target.Row, "B"), Cells(Target.Row, "E")).Clear
End Sub