Supportnet / Forum / Tabellenkalkulation
Zeilenumbruch in Excel-VBA erkennen
Frage
Hallo,
man kann ja in Excel per [ALT] [RETURN] innerhalb einer Zelle einen Zeilenumbruch erzeugen.
Wie kann man jetzt aber per VBA in Excel eine Zelle zeilenweise auslesen? Also, so trennen, dass man den Wert einer jeden Zeile innerhalb der Zelle zb in ein Array schreiben kann?
Was ist der Zeilentrenner / Zeilenumbruchzeichen in diesem Fall?
Weiß das jemand?
Tx.
Cu,
API
Antwort 1 von Event
Hallo
Das ist das Zeichen(10) oder chr(10)
Gruß
Das ist das Zeichen(10) oder chr(10)
Gruß
Antwort 2 von nighty
hi api :)
a1 der zu untersuchende text
spalte b anzeige des dazugehörigen ascicodes
gruss nighty
Option Explicit
Sub makro01()
Dim zaehler1 As Integer
For zaehler1 = 1 To Len(Cells(1, 1))
Cells(zaehler1, 2) = Asc(Mid(Cells(1, 1), zaehler1, 1))
Next zaehler1
End Sub
a1 der zu untersuchende text
spalte b anzeige des dazugehörigen ascicodes
gruss nighty
Option Explicit
Sub makro01()
Dim zaehler1 As Integer
For zaehler1 = 1 To Len(Cells(1, 1))
Cells(zaehler1, 2) = Asc(Mid(Cells(1, 1), zaehler1, 1))
Next zaehler1
End Sub
Antwort 3 von nighty
hi all :)
in dem zusammenhang waere dies auch interessant
gruss nighty
If Mid([Zellen], zeich1, 1) Like "[0-9,.]" = True Then
in dem zusammenhang waere dies auch interessant
gruss nighty
If Mid([Zellen], zeich1, 1) Like "[0-9,.]" = True Then
Antwort 4 von nighty
hi all :)))
und noch eine variante :))
gibt nur den asci aus der ausserhalb dessen liegt
0-9,a-z
gruss nighty
Option Explicit
Sub makro01()
Dim zeich1 As Integer
On Error GoTo fehler
Do
zeich1 = zeich1 + 1
If Mid(Cells(1, 1), zeich1, 1) Like "[0-9,a-z]" = False Then
Cells(zeich1, 2) = Asc(Mid(Cells(1, 1), zeich1, 1))
End If
Loop
fehler:
End Sub
und noch eine variante :))
gibt nur den asci aus der ausserhalb dessen liegt
0-9,a-z
gruss nighty
Option Explicit
Sub makro01()
Dim zeich1 As Integer
On Error GoTo fehler
Do
zeich1 = zeich1 + 1
If Mid(Cells(1, 1), zeich1, 1) Like "[0-9,a-z]" = False Then
Cells(zeich1, 2) = Asc(Mid(Cells(1, 1), zeich1, 1))
End If
Loop
fehler:
End Sub