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
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Funktion von Links abschneiden

VBA Funktion von Links abschneiden
20.08.2019 20:08:51
Links
Guten Abend zusammen
Nach etlichen Stunden suchen im Internet verstehe ich die Funktion immer noch nicht. Ich habe eine Spalte Z.B. A1 bis variabel In dieser befinden sich immer das Datum wie folgt: 20.08.19 Text usw.
Nun das Ziel den unötigen Text rausschneiden und das Datum in der gleichen Zelle belassen. In Excel habe ich das so gelöst =LINKS(F3;8). Nun brauche ich das in VBA wie bekomme ich das hin? Damit in den Zellen dann nur das Datum in diesem Format steht 20.08.19
Bin über jede Hilfe dankbar
Gruss Andy

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Funktion von Links abschneiden
20.08.2019 20:15:12
Links
Hi,
würde ich so versuchen:
Range("F3") = Cdate(Left(Range("F3"),8))
Gruß
Regina
AW: VBA Funktion von Links abschneiden
20.08.2019 21:14:50
Links
Hallo Regina
Danke für deine Hilfe, der Ansatz ist super.
Auf die einzelne Zelle angewendet funktioniert es.
Meine Tabelle sieht zum Beispiel so aus:
SpalteA SpalteB SpalteC
Vorname Nachname 20.08.19 08.00 Test
In der Spalte A,B,C sind nicht immer gleichviele Einträge.
Jetzt sollte die Spalte C nur so viele Datum ausschneiden wie Einträge vorhanden sind bzw Der Befehl soll Prüfen wie viele Einträge in den Zeilen sind.
Ich habe den Range erweitert 
Sub schneiden()
Range("F1:F20") = CDate(Left(Range("F1"), 8))
End Sub
Dann geschiet folgendes: Wenn ich weniger Einträge habe als bis zu F20 fühlt es die Spalte C mit dem Datum bis zu F20 auf. Das soll nicht geschen.
Wer weiss wie weiter?
Danke und Gruss
Andy
Anzeige
AW: VBA Funktion von Links abschneiden
20.08.2019 21:24:44
Links
.. ich verstehe so ganz nicht, wie Deine Tabelle aufgebaut ist und was genau das Ziel ist.
Lade bitte mal eine Beispieldatei hoch, in der Du auch das gewünschnte Ergebnis angibst.
Gruß
Regina
AW: VBA Funktion von Links abschneiden
21.08.2019 07:01:55
Links
Hallo Andy,
so z.B. Tabelle musst du noch anpassen. Hier wird in einer Schleife die benutzte Range in Spalte C durchlaufen und die gewuenschte Aenderung vorgenommen. Es muss aber sicher sein, dass der String auch wirklich immer so wie von dir angegeben aussieht: 

Sub Datum()
Dim letzte As Long
Dim Zelle As Range
letzte = ThisWorkbook.Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
For Each Zelle In ThisWorkbook.Sheets(1).Range(Cells(1, 3), Cells(letzte, 3))
Cells(Zelle.Row, 3) = CDate(Left(Cells(Zelle.Row, 3), 8))
Next Zelle
End Sub

Gruss Torsten
Anzeige
AW: VBA Funktion von Links abschneiden
23.08.2019 21:03:01
Links
Guten Abend Torsten
Besten Dank für deine Hilfe, genau das habe ich gesucht und es funktioniert besten.
Schönes Wochenende
Grüsse Andy

15 Forumthreads zu ähnlichen Themen

VBA: String nach der letzten Ziffer abschneiden
joerg

Hallo,
bestimmt ganz einfach, wenn man weiss wie's geht: Ich habe eine Reihe von Strings, zB 'abc_0323BAII' - wie kann ich von diesen die letzten Stellen abschneiden, so dass alles bis zur letzten Ziffer übrigbleibt? (Also, manche der Strings haben am Ende auch nur einen oder zwei oder gar...
06.02.2010 10:38:56
Thread-ID: 1136335
12 Beiträge
Anzeige
Formel für 2. Zeichen von links
links

Guten Tag Formelspezialisten,
aus einer mehrstelligen Zahl (z.B. in N8) suche ich die Formel, um die 2. Zahl zu erstellen.
Mit Formel (hier bei 4stelliger Zahl): =LÄNGE(N8)-3*1 kommt das richtige Ergebnis.
Wie muss die Formel lauten, damit ich es z.B. mit Links(N8;?)*1 machen...
09.06.2017 11:46:27
Thread-ID: 1563204
7 Beiträge
Suchen nach Wert aus Textfeld / öffnen von Links
Links

Hallo zusammen
Ich bin was VBA angeht noch ein absoluter Neuling und benötige Hilfe bei einem Problem.
Zur Ausgangslage:
Ich möchte in unserer Firma ein System einführen mit dem man mit Hilfe eines Barcodescanners und einer Excel-Datenbank Hyperlinks öffnen kann. Das Lesen des Bar...
05.09.2017 10:59:45
Thread-ID: 1578580
10 Beiträge
Anzeige
Wie Abschneiden von Text in TXT verhindern?
Text

Ich habe eine Artikeldatei für meinen Online-Shop. Im Detail handelt es sich dabei um eine Tab-getrennte TXT-Datei, mit welcher dann immer die Datenbank gefüllt wird.
Zur Bearbeitung der Datei benutze ich Excel 2000. Ich öffne Excel, öffne die Datei - und importiere sie dann mittels des sic...
09.05.2005 17:16:10
Thread-ID: 609240
10 Beiträge
Zeichen links abschneiden
Sulimann

Hallo,
ich möchte in einer Zeile die ersten 4 Zeichen rauslöschen
Bspl.
180 Sonntag so sieht es jetzt aus
Sonntag so soll es nacher aussehen
Gruß Sulimann
11.11.2005 10:11:36
Thread-ID: 694470
3 Beiträge
Zeichen von links
links

Hallo Zusammen,
in der Spalte A habe ich folgende Daten stehen "04.04.2006/14:00".
In der Spalte B schneide ich die eersten 10 Zeichen ab "=LINKS(A6;10)".
Das ist aber nun Text. Kann ich die Formel so umschreiben, dass mir gleich das amerikanische Datumsformat angezeigt wird?
Gr...
04.04.2006 11:37:07
Thread-ID: 752007
4 Beiträge
ersten 12 Zeichen von links löschen
links

Hi
wie lautet die Formel wenn ich Zeile für Zeile immer die ersten 12 Zeichen löschen möchte?
So wie Spalte B
Bsp.
Spalte A
xxxxxxxxxxxxhallo
xxxxxxxxxxxxsuper
Spalte B
hallo
super
26.09.2007 08:55:00
Thread-ID: 910470
4 Beiträge
Abschneiden von Zeichen - VBA
Zeichen

Hallo liebe Helfer,
ich habe ca. 20 Punkte in der Suche zum Thema "Abschneiden von Zeichen" gesichtet, aber nichts davon
trifft mein folgendes Problem:
In einer bestehenden Liste gibt es verschiedene Bezeichnungen (z. B. ZF322, 071ZF322B, RSG15/18S, 010RSF10/20S, RKB/W20K, 031AR8407...
07.11.2007 11:12:47
Thread-ID: 923630
5 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
11
4
6
9
4
9
2
3
3
4
5
4
17
24
4