[Code] VBA-Code für Exceltabelle

juppwatis · 27. Juli 2009

VBA-Code für Exceltabelle

Hallo zusammen,

ich erstelle gerade eine Exceltabelle und würde gerne Makros benutzen. Allerdings bin ich darin nicht so fit. Daher wäre es cool, wenn mir jmd helfen könnte:
Ich habe die Tabelle hochgeladen. Dort möchte ich dass wenn man z.B. in der Zelle C8 ist und den Button "Urlaub" klickt, dass dann folgendes passiert:
- die Zellen C8-F8 verbinden sich und es wird "Urlaub" reingeschrieben
- die Arbeitszeit ändert sich automatisch auf 8:00 h
- in der Spalte "Bem." wird ein "U" eingetragen.
- die gesamte Zeile färbt sich in einer bestimmten Farbe (kann ich aber auch über bedingte Formatierung lösen)

Wäre cool, wenn mir jmd helfen könnte den Code für den Button zu erstellen Der Code soll natürlich so sein, dass er nicht nur für C8 gilt, sondern für alle anderen auch...

{bild-down: https://www1.xup.in/tn/2009_07/19864989.jpeg}

LG

Anzeige

°EraZoR° · 27. Juli 2009

AW: VBA-Code für Exceltabelle

Also für das verbinden und Urlaub schreiben sieht das ganze so aus:

Code:

 With Selection
 .MergeCells = True
 End With
 ActiveCell.Value = "Urlaub"

Du selektierst die Zellen zum verbinden und drückst dann den Button mit dem Makro..

Und der andere Teil sieht wie folgt aus:

Code:

 strActiveCell = ActiveCell.Address 'aktuelle Zelle in Variable
 intRow = Right(strActiveCell, 1) 'nur die Zeilennummer in intRow
 Range("G" & intRow).Value = "8:00 h" 
 Range("J" & intRow).Value = "U"

Und das andere würde ich mit bedingter Formatierung machen, da sich der Dienstplan ja uU auch noch ändert und man das dann nur umständlich wieder umfärben müsste...

MfG

Nützliche Suchen

[Code] VBA-Code für Exceltabelle

Videos zum Themenbereich