Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil einer Zelle mehrfach getrennt auslesen

Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 10:17:54
Chris
Hallo zusammen,
kann mir jemand einen Tip geben wie ich per Makro den Teilbereich einer Zelle auf mehrere Zellen aufteile.
In einer Zelle befindet sich als Beispiel folgender Text
"Produktionsland: D - Produktionsjahr: 2003 - Regie: Perl"
Im würde gernde den Inhalt per Makro (weil noch Bearbeitungsschritte folgen) in mehre Zellen aufteilen, Trennzeichen soll sein ": " (: mit Leerzeichen).
Kann mir hier jemand weiterhelfen.
Danke schon mal im vorraus!
Gruss
Chris

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 11:10:55
Tino Schaltke
Hi, hier mal ein erster Entwurf:
Text wird gesplittet bei: ": " und " - "

Sub split()
Dim ausgangstext As String
Dim schreibtext As String
Dim laenge As Integer
Dim zaehler As Integer
Dim spalte As Integer
'Voraussetzung, dass Text in A1:
ausgangstext = Cells(1, 1).Value
laenge = Len(ausgangstext)
spalte = 2
For zaehler = 1 To laenge
schreibtext = schreibtext & Left(ausgangstext, 1)
ausgangstext = Right(ausgangstext, Len(ausgangstext) - 1)
If Right(schreibtext, 2) = ": " Then
schreibtext = Left(schreibtext, Len(schreibtext) - 2)
Cells(1, spalte).Value = schreibtext
spalte = spalte + 1
schreibtext = ""
End If
If Right(schreibtext, 3) = " - " Then
schreibtext = Left(schreibtext, Len(schreibtext) - 3)
Cells(1, spalte).Value = schreibtext
spalte = spalte + 1
schreibtext = ""
End If
Next
Cells(1, spalte).Value = schreibtext
End Sub

Gruß Tino Schaltke

Anzeige
AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 11:19:27
Chris
Hallo Tino,
danke für deinen Tip, ich probiers aus.
Vielen Dank !
Gruss
Chris

AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 10:20:23
Carsten
Hallo Chris,
schau mal in die Recherche bzw. Excel-FAQ. Dort wirst Du bestimmt fündig!
Wenn nicht melde Dich nochmal!
Gruß,
Carsten

AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 10:49:11
Chris
Hallo Carsten,
habe ich schon und auch das Archiv, daher meine direkte Anfrage.
Dort gibt es leider nur Beispiele die als Formel-Funktionen zu verwenden sind.
Ich habe schon versucht diese als Makro umzuschreiben, leider aber bisher ohne Erfolg.
Vielleicht kannst du mir weiterhelfen.
Danke!
Gruss
Christian

Anzeige
AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 11:15:56
Carsten
Sorry, Du hast recht, das was ich meinte steht nicht in Excel FAQ aber in der Hilfe unter TextToColumns - Methode:

Sub MehrereZellen()
Range("A1").TextToColumns _
Destination:=Range("A2"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:=":"
Columns.AutoFit
End Sub

Gruß,
Carsten

AW: Teil einer Zelle mehrfach getrennt auslesen
23.07.2003 11:38:21
Chris
Hallo Carsten,
kein Problem. Ich probier mal den Tip von Tino aus.
Danke aber für den Versuch !
Gruss
Chris

Anzeige

332 Forumthreads zu ähnlichen Themen

zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Teile einer Zelle tiefstellen
Larass

Moins!
ich würde gerne Teile einer Zelle tiefgestellt haben, finde aber keine Einstellung dazu.
Bisher bekomme ich das nur hin, indem ich den Text so wie er sein soll von Word aus in die Zelle kopiere.
Geht das nicht auch einfacher?
Gruß, Lars
15.12.2008 09:54:08
Thread-ID: 1032941
6 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
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
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

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
9
3
5
3
4
7
4
5
4
6
1
2
3
4
2
9
7
5
4
4
4
2
5
6
5