Thema Datum  Von Nutzer Rating
Antwort
11.08.2016 10:58:39 Mario Geisler
NotSolved
Blau String auslesen und 3 Zellen befüllen
 11.08.2016 13:15:54 Gast76135
NotSolved
11.08.2016 13:24:18 Gast47850
NotSolved
15.08.2016 06:39:29 TheChosenNeo
NotSolved
16.08.2016 17:46:10 Gast75338
NotSolved
17.08.2016 06:06:57 TheChosenNeo
NotSolved
19.08.2016 03:13:47 Gast17554
NotSolved
19.08.2016 06:04:04 TheChosenNeo
NotSolved
21.08.2016 19:53:47 Gast67240
NotSolved

Ansicht des Beitrags:
Von:
Gast76135		 Datum:
11.08.2016 13:15:54		 Views:
964		 Rating:
     
Antwort:
  Ja
Thema:
String auslesen und 3 Zellen befüllen

HAllo! Das wäre glaube ich eine Möglichkeit. In Text muss dein Text rein. Geschrieben wird dann in die erste Zeile in Spalte A, B, C je nach Inhalt. Müsstest es nur an deine Gegebenheiten anpassen - also Schleife für mehrer Werte in untersch. Zeilen. Das ganze Könnte man aber wohl auch innerhalb einer Formel direkt in Excel hinbekommen -da müssten aber andere dran basteln. :-)  VG

 

?
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
Sub aufteilen()
 
Text = "1.3.g Umweltdaten 11_08.2016.pdf"
 
If UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 2 Then
'es gibt vor und hinter Umweltdaten was
    Cells(1, 1) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
    Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1)
    Cells(1, 3) = Replace(Split(Left(Text, InStrRev(Text, ".") - 1), " ")(2), "_", "/")
Else
    'es gibt nur einen Wert
    If Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0) = "Umweltdaten" Then
    'Kapitel fehlt
    Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
    Cells(1, 3) = Replace(Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1), "_", "/")
    Else
    'nur Kapitel da
    Cells(1, 1) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
    Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1)
    End If
 
End If
 
 
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
11.08.2016 10:58:39 Mario Geisler
NotSolved
Blau String auslesen und 3 Zellen befüllen
 11.08.2016 13:15:54 Gast76135
NotSolved
11.08.2016 13:24:18 Gast47850
NotSolved
15.08.2016 06:39:29 TheChosenNeo
NotSolved
16.08.2016 17:46:10 Gast75338
NotSolved
17.08.2016 06:06:57 TheChosenNeo
NotSolved
19.08.2016 03:13:47 Gast17554
NotSolved
19.08.2016 06:04:04 TheChosenNeo
NotSolved
21.08.2016 19:53:47 Gast67240
NotSolved