Thema Datum  Von Nutzer Rating
Antwort
08.04.2014 20:32:23 Stachi
NotSolved
Blau Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten
 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
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:
Gast7403		 Datum:
08.04.2014 22:58:05		 Views:
966		 Rating:
     
Antwort:
  Ja
Thema:
Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten		 
Option Explicit

Sub Beispiel()
Dim Wert As Variant
Dim Ziel As String
Dim c As Range, d As Range

  'je nach Geschmack so
  Wert = 123456 'oder "1a2b3c"
  Ziel = "B2"
  If Not Zerlege(Wert, Ziel) Then MsgBox "Fehler in Funktion"
  'oder so
  Set c = Range("A1")
  Set d = Range("B1")
  If Not Zerlege(c, d) Then MsgBox "Fehler in Funktion"
End Sub
Private Function Zerlege(Was, Wohin) As Boolean
Dim Zelle As Range
Dim Bezug As String
Dim Matrix() As String
'
On Error GoTo errorhandler
Bezug = StrConv(Was, vbUnicode)
Matrix = Split(Left(Bezug, Len(Bezug) - 1), vbNullChar)
Select Case TypeName(Wohin)
  Case "String"
    Set Zelle = Range(Wohin)
  Case "Range"
    Set Zelle = Range(Wohin.Address)
End Select
Range(Zelle, Zelle.Offset(0, UBound(Matrix))) = Matrix
Zerlege = True
Exit Function
errorhandler:
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
08.04.2014 20:32:23 Stachi
NotSolved
Blau Wert in Excel-Zelle mittel Funktion in einzelne Zellen aufsplitten
 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
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