Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Exel/VBA/Macro

Exel/VBA/Macro
12.05.2020 18:36:44
Westerman
Hallo Forum,
ich möchte auf Doppelklick in der Spalte 33 die Sachbeiarbeiterkürzel anzeigen lassen und mit Hintergrundfarbe (rot) füllen lassen ebenso wieder aufheben. Ist hierfür ein Makro notwendig? Ich bitte um Eure Hilfe.
In der Zelle AG8 = (z.B. das Kürzel) ABC
In der Zelle AG10 = (z.B. das Kürzel) DEF
In der Zelle AG11 = (z.B. das Kürzel) GHI
In der Zelle AG13 = (z.B. das Kürzel) JKL
In der Zelle AG14= (z.B. das Kürzel) MNO
In der Zelle AG15 = (z.B. das Kürzel) PQR
In der Zelle AG17= (z.B. das Kürzel) STU
In der Zelle AG18 = (z.B. das Kürzel) VWX
In der Zelle AG19 = (z.B. das Kürzel) YZA
In der Zelle AG20 = (z.B. das Kürzel) CBA
In der Zelle AG21= (z.B. das Kürzel) FED
In der Zelle AG22 = (z.B. das Kürzel) IHG
Wäre Super wenn Ihr mir Helfen könnt! :o)
Danke schon mal
Gruß W.W.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exel/VBA/Macro
12.05.2020 18:51:23
Westerman
Lass es bitte!
AW: Exel/VBA/Macro
12.05.2020 19:12:01
Werner
Hallo,
hier mal nur für die Zeile 8:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 33 Then
Cancel = True
Select Case Target.Row
Case 8
Target = IIf(Target = "", "PKS", "")
Target.Interior.Color = IIf(Target = "PKS", vbRed, xlNone)
Target.Font.Color = IIf(Target = "PKS", vbWhite, vbBlack)
End Select
End If
End Sub
Doppelklicvk auf AG8 trägt das Kürzel ein, färbt die Zelle rot, färbt die Schrift weiß.
Erneuter Doppelklick auf AG8 entfernt das Kürzel, entfernt die Zellfarbe, setzt die Schriftfarbe auf schwar.
Ich denke für die anderen Case kriegst du da dann selbst hin.
Gruß Werner
Anzeige
AW: Exel/VBA/Macro
12.05.2020 19:19:07
Westerman
Vielen Herzlichen DANK Werne!
Gerne u. Danke für die Rückmeldung. o.w.T.
12.05.2020 20:37:30
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige