Thema Datum  Von Nutzer Rating
Antwort
13.01.2025 10:18:18 Claudia
*****
NotSolved
13.01.2025 12:56:24 Gast16815
NotSolved
Rot Zellbereich zusammenfügen
13.01.2025 13:38:27 Flatulenz
*****
Solved

Ansicht des Beitrags:
Von:
Flatulenz		 Datum:
13.01.2025 13:38:27		 Views:
27		 Rating:
     
Antwort:
 Nein
Thema:
Zellbereich zusammenfügen

moin,

 

so könnte es aussehen

 

Public Sub CopyRegion_Messprotokoll()
    With Worksheets("Messprotokoll")
        .Cells(2, 11).Value = Worksheets("Parameter").Cells(6, 4).Value
        .Range("A8:B14").MergeCells = False
        .Range("A8:O14").Borders(xlInsideHorizontal).LineStyle = xlNone
        .Range("A8:B14").ClearContents
        Select Case UCase(.Range("K2"))
            Case "C", "E", "F"
                .Range("A8:B11,A12:B14").MergeCells = True
                .Range("A8").Value = "Muster 1"
                .Range("A12").Value = "Muster 2"
                .Range("A8:B11").VerticalAlignment = xlCenter
                .Range("A12:B14").VerticalAlignment = xlCenter
                With .Range("A12:O12").Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .TintAndShade = 0
                    .Weight = xlThick
                End With
            Case "G", "O"
                .Range("A8:B12,A13:B14").MergeCells = True
                .Range("A8").Value = "Muster 1"
                .Range("A13").Value = "Muster 2"
                .Range("A8:B12").VerticalAlignment = xlCenter
                .Range("A13:B14").VerticalAlignment = xlCenter
                With .Range("A13:O13").Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .TintAndShade = 0
                    .Weight = xlThick
                End With
            Case "P"
                .Range("A8:B9,A10:B12").MergeCells = True
                .Range("A8").Value = "Muster 1"
                .Range("A10").Value = "Muster 2"
                .Range("A8:B9").VerticalAlignment = xlCenter
                .Range("A10:B12").VerticalAlignment = xlCenter
                With .Range("A10:O10").Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .TintAndShade = 0
                    .Weight = xlThick
                End With
        End Select
    End With
End Sub

 

Grüßli

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
13.01.2025 10:18:18 Claudia
*****
NotSolved
13.01.2025 12:56:24 Gast16815
NotSolved
Rot Zellbereich zusammenfügen
13.01.2025 13:38:27 Flatulenz
*****
Solved