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:
735		 Rating:
     
Antwort:
  Ja
Thema:
Liste umwandeln

Hallo Maik,

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

Gruß Uwe

 

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