Zellen verbinden, wenn Wort in Zelle eingeben wird

Hallo Community,
ich bin grad dabei, mir einen Arbeitszeitenkalender für 2018 zu erstellen.
In meinem kleinen Unternehmen in dem ich angestellt bin haben wir keine Stempeluhr.
Ich will mir nur das Ganze ein wenig vereinfachen, dass ich immer auf einen Blick habe wie viele Stunden habe ich in dem Monat gearbeitet, wie viel Urlaubstage habe ich noch usw.
Für jeden Monat habe ich ein Arbeitsblatt eröffnet mit den notwendigen Daten.
Ich habe vier Spalten: Arbeitsbeginn, Mittagspausenbeginn, Mittagspausenende und Arbeitsende.
Es gibt auch Tage in denen ich meine Überstunden abbaue oder Urlaub habe.
Dafür habe ich mir ein Dropdown-Menü in der Spalte "C" erstellt mit "Urlaub" und "Freizeitausgleich"
Um das Ganze ein wenig übersichtlicher zu machen, würde ich gerne diese vier Spalten verbinden, falls eines der beiden Wörter "Urlaub" oder "Freizeitausgleich" ausgewählt wird und dieses dann auch zentrieren.
Ist das Irgendwie möglich, dies zu automatisieren?
So sieht im Moment das Arbeitsblatt vom Januar aus.
Userbild

Wäre klasse wenn ihr mir helfen könntet.
Gruß Korbi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ich habe schon vieles über bedingte Formatierung gemacht, aber noch nicht über Auswahl ausrichten.
Ich hätte es per VBA gelöst.
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
With Range(Target, Target(0, 4))
If Not IsNumeric(Target) Then
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Else
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End If
End With
End If
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells(1).Column = 3 Then If Target = "Urlaub" Or Target = "Freizeitausgleich" Then With Range(Target.Cells(1), Target.Cells(1).Offset(0, 3)) .Borders(xlInsideVertical).LineStyle = xlNone .HorizontalAlignment = xlCenterAcrossSelection End With End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Zellen verbinden, wenn Wort in Zelle eingeben wird

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen verbinden, wenn Wort in Zelle eingeben wird

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread