Thema Datum  Von Nutzer Rating
Antwort
23.10.2024 11:43:34 Gast91462
NotSolved
Blau Code vereinfachen (Zellen zusammenfügen)
 23.10.2024 13:27:17 Gast87817
Solved
23.10.2024 14:15:29 Gast91462
NotSolved
23.10.2024 22:13:42 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast87817		 Datum:
23.10.2024 13:27:17		 Views:
39		 Rating:
     
Antwort:
 Nein
Thema:
Code vereinfachen (Zellen zusammenfügen)
versuchs mal damit, habs nicht getestet 
Option Explicit
Sub aaa()
 Dim ranges As String, rng
 ranges = "G25:H25;G26:H26;I25:J25;I26:J26;K25:L25;K26:L26;M25:N25;M26:N26;O25:P25;O26:P26;Q25:R25;Q26:R26"
  
  With Application
    .DisplayAlerts = False
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .EnableEvents = False
  End With
  For Each rng In Split(ranges, ";")
    formatcell (rng)
  Next
  With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
  End With
End Sub

Function formatcell(str As String)
  
    With Range(str)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Function

 

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
23.10.2024 11:43:34 Gast91462
NotSolved
Blau Code vereinfachen (Zellen zusammenfügen)
 23.10.2024 13:27:17 Gast87817
Solved
23.10.2024 14:15:29 Gast91462
NotSolved
23.10.2024 22:13:42 ralf_b
NotSolved