Thema Datum  Von Nutzer Rating
Antwort
08.04.2014 20:32:23 Stachi
NotSolved
08.04.2014 22:58:05 Gast7403
NotSolved
09.04.2014 08:36:58 Gast60227
NotSolved
09.04.2014 09:39:01 gabi
NotSolved
09.04.2014 17:33:02 Gast87455
NotSolved
Blau Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten
 09.04.2014 20:10:27 gabi
NotSolved
19.04.2014 16:20:12 Gast28493
NotSolved
19.04.2014 19:25:25 Gast80652
NotSolved
20.04.2014 13:55:53 Gast39473
NotSolved

Ansicht des Beitrags:
Von:
gabi		 Datum:
09.04.2014 20:10:27		 Views:
912		 Rating:
     
Antwort:
  Ja
Thema:
Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten

zum Bleistift :

den Unterschied zwischen .Font.ColorIndex = 0 oder = 1 merkt niemand und
xlColorIndexAutomatic oder -4105 = 0 oder umgekehrt

im Klassenmodul der Tabelle :

 

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Font.ColorIndex = -4105 Then Exit Sub
  DoIt Target
End Sub

Private Sub DoIt(ByVal myCell As Range)
Dim Bezug As String
Dim Matrix() As String
'
Application.EnableEvents = False
On Error Resume Next
Bezug = StrConv(myCell.Value, vbUnicode)
Matrix = Split(Left(Bezug, Len(Bezug) - 1), vbNullChar)
Set myCell = myCell.Offset(0, 1)
Range(myCell, myCell.Offset(0, UBound(Matrix))) = Matrix
On Error GoTo 0
Application.EnableEvents = 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
08.04.2014 20:32:23 Stachi
NotSolved
08.04.2014 22:58:05 Gast7403
NotSolved
09.04.2014 08:36:58 Gast60227
NotSolved
09.04.2014 09:39:01 gabi
NotSolved
09.04.2014 17:33:02 Gast87455
NotSolved
Blau Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten
 09.04.2014 20:10:27 gabi
NotSolved
19.04.2014 16:20:12 Gast28493
NotSolved
19.04.2014 19:25:25 Gast80652
NotSolved
20.04.2014 13:55:53 Gast39473
NotSolved