Thema Datum  Von Nutzer Rating
Antwort
02.07.2018 12:38:59 Emre
Solved
03.07.2018 11:06:42 Gast71725
Solved
Rot Zellen verbinden
 03.07.2018 14:16:30 Codo
Solved
04.07.2018 10:06:58 RPP63
Solved
10.07.2018 10:13:11 Emre
Solved

Ansicht des Beitrags:
Von:
Codo		 Datum:
03.07.2018 14:16:30		 Views:
509		 Rating:
     
Antwort:
 Nein
Thema:
Zellen verbinden

Aktualisierung, damit es auch bei einmal vorkommenden Werten funktioniert.

Gruß Codo

Sub Makro1()
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
For i = 1 To letztezeile
    If vgl = Cells(i, 9) Then
       bis = i
    Else
       If bis > 0 Then
          Application.DisplayAlerts = False
          If bis < von Then bis = von
          Range(Cells(von, 9), Cells(bis, 9)).Merge
       End If
       von = i
       vgl = Cells(i, 9)
    End If
Next
If bis = letztezeile Then Range(Cells(von, 9), Cells(bis, 9)).Merge
Application.DisplayAlerts = True
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
02.07.2018 12:38:59 Emre
Solved
03.07.2018 11:06:42 Gast71725
Solved
Rot Zellen verbinden
 03.07.2018 14:16:30 Codo
Solved
04.07.2018 10:06:58 RPP63
Solved
10.07.2018 10:13:11 Emre
Solved