Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Spalte per Makro

Text in Spalte per Makro
09.01.2015 13:01:10
Tobias
Hallo,
ich habe ein Problem, über das ich eine ganze Menge gelesen habe, jedoch trotzdem nicht zur Lösung komme da ich mich mit Makros nicht auskenne.
Ich habe eine Tabelle kopiert und benötige von einer Spalte nur einen gewissen Teil.
Ist an sich per "Text in Spalten" kein Problem. Ich suche jedoch eine Makro-Lösung.
Die Zellen sind in folgendem Format : 08.01.2014 15:04
Zwischen dem Datum un der Uhrzeit befindet sich ein Leerzeichen.
Ich benötige jedoch nur das Datum.
Ist für euch bestimmt eine leichte Übung, ich jedoch bin am verzweifeln.
Danke & Gruß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalte per Makro
09.01.2015 13:05:51
Klaus
Hallo Tobias,
Text-in-Spalten kannst du doch einfach Makrorekordern!
Datums/Zeit Zellen können in gefühlt 1000 Variationen vorliegen, dass fasse ich ohne Musterdatei nicht an :-) Hast aber recht, sollte eine einfache Übung sein.
Grüße,
Klaus M.vdT.

AW: Text in Spalte per Makro
09.01.2015 13:31:45
Tobias
Hallo Klaus,
ich hab etwas Blödsinn erzählt habe ich gerade gesehen
Das Ausgangsformat ist : 08.01 15:04
Wenn ich Text in Spalten anwende, wandelt er automatisch in ein Datum um....
Ich habe mal eine Musterdatei
https://www.herber.de/bbs/user/94884.xls

Anzeige
AW: Text in Spalte per Makro
09.01.2015 13:42:35
Klaus
Hi,
du hast recht, Text-In-Spalten formatiert die Spalte A um. Lösung: einfach im Makro zurück formatieren.
Sub TextSpaltenMakro()
Const AbZeile As Long = 3
Const inSpalte As Long = 1
Dim bisZeile As Long
With ActiveSheet
bisZeile = .Cells(.Rows.Count, inSpalte).End(xlUp).Row
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).TextToColumns Destination:=. _
Range("A" & AbZeile), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).NumberFormat = "dd/mm/"
End With
End Sub
Geht auch ganz ohne VBA!
Ab B3 die Formel
=A3-DATUM(JAHR(A3);MONAT(A3);TAG(A3))
runter kopieren. Spalte A als Datum "TT.MM" formatieren, Spalte B als Uhrzeit "hh:mm".
Grüße,
Klaus M.vdT.

Anzeige
AW: Text in Spalte per Makro
09.01.2015 13:54:28
Tobias
Ok das hat schon mal ganz gut funktioniert.
2 Anpassungen wären jetzt noch super.
In der Zieldatei ist das Format 08.01.2015 nicht 08.01
&
Beim einkopieren ist es in Spalte B nicht in A.
Ich weis leider nicht wie ich den VBA anpassen kann :s
Gruß
Tobias

AW: Text in Spalte per Makro
09.01.2015 14:42:42
Klaus
Tobias, ein bisschen selber ausprobieren ist erlaubt. Der Computer explodiert schon nicht! 
Sub TextSpaltenMakro()
Const AbZeile As Long = 3
Const inSpalte As Long = 2
Dim bisZeile As Long
With ActiveSheet
bisZeile = .Cells(.Rows.Count, inSpalte).End(xlUp).Row
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).TextToColumns Destination:=.  _
_
Range("B" & AbZeile), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).NumberFormat = "dd/mm/yyyy"
End With
End Sub
Ist ziemlich offensichtlich, wenn man es so vor sich sieht, oder?
Grüße,
Klaus M.vdT.

Anzeige
AW: Text in Spalte per Makro
09.01.2015 14:44:08
Tobias
Gott wie unangenehm....
wer lesen kann ist klar im Vorteil.
Klappt exzellent jetzt.
Vielen Dank !

Danke für die Rückmeldung! owT.
09.01.2015 14:49:49
Klaus
.

AW: Text in Spalte per Makro
09.01.2015 13:08:10
Rudi
Hallo,
wenn es wirklich ein Datum und kein Text ist, muss du doch nur das Format der Spalte auf TT.MM.JJJJ ändern.
Gruß
Rudi

317 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
6
3
4
5
5
3
3
9
10
4
2
3
3
7
2
14
5
2
5
1
7
2