Thema Datum  Von Nutzer Rating
Antwort
27.09.2016 11:52:27 Maik
NotSolved
30.09.2016 14:06:20 Uwe
NotSolved
16.10.2016 19:39:09 Maik
NotSolved
16.10.2016 19:39:59 Maik
NotSolved
16.10.2016 20:03:09 Gast73689
NotSolved
Blau Liste umwandeln
 16.10.2016 20:46:08 Gast6820
NotSolved

Ansicht des Beitrags:
Von:
Gast6820		 Datum:
16.10.2016 20:46:08		 Views:
737		 Rating:
     
Antwort:
  Ja
Thema:
Liste umwandeln

Moin!

Bin zwar nicht Uwe aber falls er nicht mehr reinschaut, hier sein Code angepasst. Eigentlich ist nur in Zeile 24 der Bezugwert geändert. Sollte wohl nicht vom letzten Ausgang sondern der ursp. Text (also der EIngang sein). Sieht dann so wie unten aus. VG

 

Function umwandel()
dim Spalteeingang as string 
dim Spalteausgabe as string 
Dim Z as long 
Dim LZ as long
Dim I as integer
Dim SplitFeld() as string 
Dim Zeile as long 
 
 
Spalteeingang = "A" '--> Anpassen
Spalteausgabe = "B" '--> Anpassen    
LZ = 100 'Letzte Zeile --> Anpassen
 
Zeile  = 1
For Z = 1 to LZ
 
    ActiveSheet.range(Spalteausgabe & Zeile)="[" & ActiveSheet.range(Spalteeingang  & Z) & "]"
    Zeile = Zeile  +1
 
    ActiveSheet.range(Spalteausgabe & Zeile)= chr(34) & ActiveSheet.range(Spalteeingang  & Z ) & chr(34)
    Zeile = Zeile  +1
 
    SplitFeld = split(ActiveSheet.range(Spalteeingang & Z)," ")
    For I = 0 to ubound(SplitFeld)
        SplitFeld(I) = "+" & SplitFeld(I)   
    next I
    ActiveSheet.range(Spalteausgabe & Zeile) = join(SplitFeld," ")
    Zeile = Zeile  +1
 
next Z
 
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
27.09.2016 11:52:27 Maik
NotSolved
30.09.2016 14:06:20 Uwe
NotSolved
16.10.2016 19:39:09 Maik
NotSolved
16.10.2016 19:39:59 Maik
NotSolved
16.10.2016 20:03:09 Gast73689
NotSolved
Blau Liste umwandeln
 16.10.2016 20:46:08 Gast6820
NotSolved