Thema Datum  Von Nutzer Rating
Antwort
Rot Text in Spalten Makro
 07.10.2013 10:29:32 TheJenny
NotSolved
07.10.2013 11:28:23 Gast46107
****
NotSolved
07.10.2013 14:44:52 Gast99169
NotSolved
08.10.2013 07:08:17 TheJenny
NotSolved

Ansicht des Beitrags:
Von:
TheJenny		 Datum:
07.10.2013 10:29:32		 Views:
1610		 Rating:
     
Antwort:
  Ja
Thema:
Text in Spalten Makro

Hallo zusammen,

ich hoffe ihr könnt mir bei meinem Problem helfen. Ich irre schon seit einigen Tagen durchs Internet, aber ich finde keine Lösung.

Mein Problem:

Ich habe eine Excel Datei aus mehreren Tabellenblättern.

In drei Tabellenblätter werden aus einer anderen Datei täglich Werte geschrieben. Das klappt soweit.

Unter anderem ist in der ersten Spalte immer ein Datum.

Dieses Datum wird mit Sverweis für ein weiteres Tabellenblatt benötigt.

Sverweis findet aber das Datum nicht. Erst wenn ich die komplette Spalte A makiert habe und über Daten --> Text in Spalten --> Fertig stellen formatiert habe.

Scheinbar ist das Datum nicht in der selben Formatierung. Allerdings kommt ja jeden Tag ein neues Datum hinzu. Die Formatierung immer anzupassen wäre also zu aufwendig. Deswegen hätte ich gern ein Makro was das kann.

Ich habe das Makro aufgezeichnet. Und verfeinert. Sodass es so aussieht:

?
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub TEXTinSPALTEN1()
'
' TEXTinSPALTEN1 Makro
'
 
'
Dim Ziel1 As String
Ziel1 = Selection.Address
 
    Sheets("Wanddickenprüfung").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select
 
     
End Sub
     
     
 
Sub TEXTinSPALTEN2()
'
' TEXTinSPALTEN2 Makro
'
 
'
Dim Ziel2 As String
Ziel2 = Selection.Address
 
    Sheets("Messmaschine Rechts").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel2), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select
     
End Sub
 
Sub TEXTinSPALTEN3()
'
' TEXTinSPALTEN3 Makro
'
 
'
Dim Ziel3 As String
Ziel3 = Selection.Address
 
    Sheets("Messmaschine Links").Select
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range(Ziel3), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("A5").Select
     
End Sub

Also das ist jetzt zu jedem Tabellenblatt extra.

Die Daten werden mir immer in unterschiedlichen Spalten wiedergegeben. Warum nicht in der Spalte wo sie schon stehen?

Eigentlich will ich doch nur Glätten.

Ich muss dazu sagen, ich habe wenig Ahnung von VBA.

Ich hoffe auf eure Hilfe.

 

Gruß TheJenny

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
Rot Text in Spalten Makro
 07.10.2013 10:29:32 TheJenny
NotSolved
07.10.2013 11:28:23 Gast46107
****
NotSolved
07.10.2013 14:44:52 Gast99169
NotSolved
08.10.2013 07:08:17 TheJenny
NotSolved