Thema Datum  Von Nutzer Rating
Antwort
27.09.2016 11:52:27 Maik
NotSolved
Blau Liste umwandeln
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
16.10.2016 20:46:08 Gast6820
NotSolved

Ansicht des Beitrags:
Von:
Uwe
Datum:
30.09.2016 14:06:20
Views:
811
Rating: Antwort:
  Ja
Thema:
Liste umwandeln

Hallo Maik,

das wäre der Code für dein Vorhanben.

Gruß Uwe

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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(Spalteausgabe & 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
Blau Liste umwandeln
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
16.10.2016 20:46:08 Gast6820
NotSolved