Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.07.2025 20:56:54
Pause einfügen wenn....
10.07.2025 16:38:20
Makro gibt nicht das gewollte Uhrzeitformat aus
10.07.2025 16:29:52
Häufigste Firmenbezeichnung von gleichen Firmen-IDs finden
10.07.2025 13:48:08
WENN Formel Fehler
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erstes Zeichen aus Zelle

Forumthread: Erstes Zeichen aus Zelle

Erstes Zeichen aus Zelle
Fritz_W
Hallo Forumsbesucher,
ich suche nach einer VBA-Lösung als Alternative zur Funktion LINKS.
Mit welchem Code kann ich für alle Zellen (mit Inhalt) ab Zeile D2 in der Spalte E beginnend ab E2 das erste Zeichen in die entsprechende Zeile der Spalte D schreiben lassen?
Vielen Dank für eure Unterstützung.
mfg
Fritz
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#vba #zeichenextraktion #zellenmanipulation
Relevante Fragen
Anzeige
Betreff
Benutzer
Anzeige
Korrektur
27.10.2011 12:09:07
Fritz_W
Hallo,
muss heißen:
Mit welchem Code kann ich für alle Zellen (mit Inhalt) ab Zeile D2 in der Spalte E beginnend ab E2 das erste Zeichen in die entsprechende Zeile der Spalte E schreiben lassen?
z.B. wenn in D2 Stuttgart Vaihingen, dann in E2 S
mfg
Fritz
AW: Korrektur
27.10.2011 12:16:04
Reinhard
Hallo Fritz,
es heißt Zelle und nicht Zeile und viel klarer ist es nicht geworden :-)
Egal, such dir einen Code aus: Sub tt() Dim Zei As Long For Zei = 2 To Cells(Rows.Count, 4).End(xlUp).Row Cells(Zei, 5).Value = Left(Cells(Zei, 4).Value, 1) Next Zei End Sub Sub tt2() Dim Zei As Long For Zei = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(Zei, 4).Value "" Then Cells(Zei, 5).Value = Left(Cells(Zei, 4).Value, 1) End If Next Zei End Sub
Gruß
Reinhard
Anzeige
AW: Korrektur
27.10.2011 12:17:17
Matthias
Hallo
Ein Beispiel
bitte an Deinen Bereich anpassen

Sub Fritz()
Dim rng As Range
For Each rng In Range("D2:D5")
If rng.Value  "" Then rng.Offset(, 1) = Left(rng.Value, 1)
Next
End Sub
Tabelle1

 DE
2Stuttgart VaihingenS
3  
4SachsenS
5ChemnitzC


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias
Anzeige
AW: Korrektur
27.10.2011 12:18:07
marcl
Hallo Fritz,
mit ner Formel:
=Wenn(D2)="";"";Links(D2;1)
Gruß
marcl
AW: Korrektur
27.10.2011 12:18:08
marcl
Hallo Fritz,
mit ner Formel:
=Wenn(D2)="";"";Links(D2;1)
Gruß
marcl
VBA!
27.10.2011 12:22:47
Matthias
Huhu
ich suche nach einer VBA-Lösung als Alternative zur Funktion LINKS
LG Der Mitleser
Anzeige
AW: Korrektur
27.10.2011 13:02:33
Fritz_W
Hallo Helfer,
euch allen vielen Dank!
mfg
Fritz

Forumthreads zu verwandten Themen

Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Anzeige
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
Anzeige
Ein Teil einer Formel in andere Zelle ausgelagern
Hans

Ein Teil der Formel – der immer gleich ist - soll in eine andere Zelle ausgelagert werden. Ist die möglich, gibt es hierfür eine spezielle Funktion?
=WENN(E25=5;SVERWEIS(Rechn.!C25;'C:\Ornder\[dateiname.xls]tabelle'!$A$2:$B$17128;2;FALSCH);"")
=WENN(E25=5;SVERWEIS(Rechn.!C25; Verweis au...
14.06.2009 21:29:10
Thread-ID: 1081465
2 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Anzeige
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Anzeige
Zellinhalte ab erstem Leerzeichen löschen
Kai

Hi,
wie kann ich den per Makro eine Spalte H bearbeiten und dort alle Inhalte , die in einer Zelle ab dem ersten Leerzeichen kommen, löschen, Wenn der inhalt mit "A" beginnt
Beispiel:
aus "A blablabla" soll "A" werden
aus "Antwort 5" soll "Antwort" werden
Aber wie ges...
11.09.2009 13:03:11
Thread-ID: 1101999
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige