Thema Datum  Von Nutzer Rating
Antwort
12.10.2007 13:38:40 deScign
NotSolved
14.10.2007 18:11:38 Hurrican
NotSolved
15.10.2007 08:38:54 deScign
NotSolved
Blau Aw:Aw:Aw:Zellen zusammenfassen
 15.10.2007 14:46:58 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
15.10.2007 14:46:58		 Views:
948		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Zellen zusammenfassen
Es ist nicht klar, ob z.B. c1;c2;c4 in c1-c2;c4 gekürzt werden soll. Ich habe das einfach mal gemacht.
Nachstehend eine "Quick&Dirty"-Prozedur, die du nur noch durch alle betroffenen Zellen laufen lassen musst:

a = ActiveCell + ";"
an = "": w = 0: k = 1: n = 0
b = InStr(k, a, ";")
ReDim zahl(n)
Do
c = Mid(a, k, b - k)
For i = 1 To Len(c)
c1 = Mid(c, i, 1)
c2 = InStr("0123456789", c1)
If c2 Then
n = n + 1
ReDim Preserve zahl(n)
zahl(n) = Val(Mid(c, i))
t = Left(c, i - 1)
Exit For
End If
Next i
k = b + 1
b = InStr(k, a, ";")
Loop Until b = 0
For i = 1 To n - 1
If zahl(i + 1) - zahl(i) = 1 Then
If w = 0 Then an = an + t + Trim(zahl(i)) + "-": w = 1
Else
an = an + t + Trim(Str(zahl(i))) + ";"
If w = 1 Then w = 0
End If
k = b + 1
Next i
an = an + t + Trim(Str(zahl(i)))
ActiveCell = an

Hoffentlich klappt es
Holger

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
12.10.2007 13:38:40 deScign
NotSolved
14.10.2007 18:11:38 Hurrican
NotSolved
15.10.2007 08:38:54 deScign
NotSolved
Blau Aw:Aw:Aw:Zellen zusammenfassen
 15.10.2007 14:46:58 Holger
NotSolved