Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Enter ersetzen

Enter ersetzen
06.08.2003 23:02:17
Flo
Hi Excelgemeinde,
ich bräuchte dringend Hilfe. Und zwar hab ich mehrere Daten in einer Zelle. Diese Daten sind durch ein Enter getrennt. ich will jetzt das diese nicht in einer Zelle sind, sondern nach dem Enter jeweils in eine neue Zelle kommen.
Beispeil:
Zelle A1:
data1
data2
data3
soll aber dann so aussehen:
ZelleA1 ZelleB1 ZelleC1
data1 data2 data3
Hab auch versucht die Enter durch z.B. ein Komma zu ersetzen, so könnte man diese Datei als Textfile speichern und wieder neu öffnen und das Komma dabei als Trennzeichen benutzen - man kann aber in der Ersetzenmaske kein Enter aussuchen.
Gibt es denn keine Möglichkeit für diesen Fall???
Vielen Dank schon mal!!!!!!!
Gruß,
Flo

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

Betreff
Datum
Anwender
Anzeige
AW: Enter ersetzen
06.08.2003 23:30:12
Mario
Mim Makro würde das so aussehen:
Range("A1") = data1

AW: Enter ersetzen
06.08.2003 23:38:05
ivan
Herzliche Grüsse Ivan                                                                   Gesund Bleiben Gesund werden    www.Tepperwein-Collection.at

Hi Flo
es gibt mehere möglichkeiten!
=VERKETTEN(A2;A3;A4;A5)
ODER
=A2&A3&A4
ODER
=RECHTS(A2;10)
wobei 10 für die letzten 10 buchstaben steht!das kanst du anpassen

Anzeige
AW: Enter ersetzen
07.08.2003 06:55:45
GraFri
Hallo
Option Explicit

 

'Die ersten zwei 'ENTER' werden in jeder Zelle des

'markierten Bereichs erkannt und demnach getrennt

 

Sub Daten_trennen()

Dim TMP             As Variant

Dim Position(1)     As Integer  'ENTER' kommt maximal 2 mal vor

Dim n               As Integer

Dim a               As Integer

Dim Zelle           As Range

 

 

For Each Zelle In Selection

    TMP = Zelle.Value: a = 0

    For n = 1 To Len(TMP)

        If Mid(TMP, n, 1) = Chr$(10) Then

            Position(a) = n

            a = a + 1

        End If

        If a = 2 Then Exit For

    Next n

'Falls kein 'ENTER' vorkommt

    If a = 0 Then GoTo Sprungmarke

'Daten markierte Zelle

    Zelle.Value = Left(TMP, Position(0) - 1)

 

'Daten eine Zelle rechts von markierter Zelle

    Zelle.Offset(0, 1).Value = Mid(TMP, Position(0) + 1, Position(1) - Position(0) - 1)

 

'Daten zwei Zellen rechts von markierter Zelle

    Zelle.Offset(0, 2).Value = Right(TMP, Len(TMP) - Position(1))

 

Sprungmarke:

Next

End Sub

mfg, GraFri
Anzeige
AW: Enter ersetzen
07.08.2003 08:49:46
Koenig W.
Hallo Flo,
bei mir geht es so

Sub Zeilenschaltung()
Dim str As String
Dim bereich As Range
Dim zelle As Range
Set bereich = Range("A1:A10")
For Each zelle In bereich
str = zelle.Replace(Chr(10), ",")
Next zelle
End Sub

Gruss Wilhelm

Bearbeiten / ersetzen [Alt]0010
07.08.2003 09:38:55
ingo
hallo flo,
Du kannst einfach folgendes machen :
bearbeiten / ersetzen und in suchen nach eingeben: [Alt]0010
(ziffern aus dem Nummernblock bei gehaltener Alt-Taste)
in ersetzen durch eingeben: ;
Ich hoffe, das bringt dich weiter
Gruß Ingo

AW: Enter ersetzen
07.08.2003 22:53:58
Flo
Vielen Dank für Eure Mühe !!!
Es haben beinahe alle Funktionen funktioniert!
Merci und viele Grüße,
Flo

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige