Thema Datum  Von Nutzer Rating
Antwort
10.03.2018 15:48:18 Kevin
NotSolved
Blau Zeilen bei bestimmten Werten in aktiver Reihe verbinden ".merge"
 10.03.2018 16:29:26 Gast14316
NotSolved
10.03.2018 22:50:02 Kevin
NotSolved
11.03.2018 09:31:24 Gast70117
Solved
13.03.2018 08:14:16 Kevin
NotSolved

Ansicht des Beitrags:
Von:
Gast14316		 Datum:
10.03.2018 16:29:26		 Views:
401		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen bei bestimmten Werten in aktiver Reihe verbinden ".merge"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngS As Range, rngM As Range
With ActiveSheet
  Set rngS = .Cells(ActiveCell.Row, 4)
      If Not Application.Intersect(rngS, Target) Is Nothing Then
         Set rngM = Range(rngS.Offset(, 1), rngS.Offset(, 2))
        If rngS.Value = "Ausgabe" Then
            Application.DisplayAlerts = False
            rngM.Merge
            Application.DisplayAlerts = True
        Else
            rngM.UnMerge
        End If
    End If
  End With
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.03.2018 15:48:18 Kevin
NotSolved
Blau Zeilen bei bestimmten Werten in aktiver Reihe verbinden ".merge"
 10.03.2018 16:29:26 Gast14316
NotSolved
10.03.2018 22:50:02 Kevin
NotSolved
11.03.2018 09:31:24 Gast70117
Solved
13.03.2018 08:14:16 Kevin
NotSolved