Thema Datum  Von Nutzer Rating
Antwort
11.08.2016 10:58:39 Mario Geisler
NotSolved
11.08.2016 13:15:54 Gast76135
NotSolved
Rot String auslesen und 3 Zellen befüllen
 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:
Gast47850		 Datum:
11.08.2016 13:24:18		 Views:
957		 Rating:
     
Antwort:
  Ja
Thema:
String auslesen und 3 Zellen befüllen

NAchtrag. Eine Unterscheidung fehlte noch. 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
26
27
28
Sub aufteilen()
 
Text = "Umweltdaten.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" And UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 1 Then
    'nur Kapitel da
    Cells(1, 1) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
    Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1)
    Else
        If UBound(Split(Left(Text, InStrRev(Text, ".") - 1), " ")) = 0 Then
        'es steht nur Umweltdaten drin
        Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
        Else
        'Kapitel fehlt
        Cells(1, 2) = Split(Left(Text, InStrRev(Text, ".") - 1), " ")(0)
        Cells(1, 3) = Replace(Split(Left(Text, InStrRev(Text, ".") - 1), " ")(1), "_", "/")
        End If
    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
11.08.2016 13:15:54 Gast76135
NotSolved
Rot String auslesen und 3 Zellen befüllen
 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