Supportnet Computer
Planet of Tech

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ß

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

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

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: