Ankündigung

Einklappen
Keine Ankündigung bisher.

Excel-Hilfe, Profis gesucht ;-P

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

    #16
    Hey, dass war schnell gemacht ;|
    Und es ist nicht nur Line Feed, sondern sogar CRLF ^^

    Funktioniert aber, habs gerade mit der Datei getestet:

    Private Sub AdressenTrennen(sZelle As String)
    Dim sAdresse As String
    Dim iSpalte As Integer, iZeile As Integer
    sAdresse = Range(sZelle)
    iSpalte = Asc("A")
    iZeile = Mid(sZelle, InStrRev(sZelle, "$") + 1)
    Do While sAdresse ""
    Range("A" & Chr(iSpalte) & iZeile) = Left(sAdresse, InStr(1, sAdresse, vbCrLf) - 1)
    sAdresse = Mid(sAdresse, InStr(1, sAdresse, vbCrLf) + 2)
    iSpalte = iSpalte + 1
    Loop
    End Sub

    Fügt die Daten ab Spalte "AA" ein ;)

    Einfach alt + F11 drücken und dann links das Tabelleblatt auswählen, dort das oben genannte reinschreiben und noch:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    AdressenTrennen (Target.Address)
    End Sub

    Anschließend brauchst du nur in die Zelle mit den Daten zu klicken ^^

    Kommentar


      #17
      DerKiLLa postete
      Und es ist nicht nur Line Feed, sondern sogar CRLF ^^
      Klugscheißer :D:D

      Kommentar


        #18
        Nightmare postete
        DerKiLLa postete
        Und es ist nicht nur Line Feed, sondern sogar CRLF ^^
        Klugscheißer :D:D
        Für die VBA Funktion war das essentiell wichtig ;)

        Kommentar


          #19
          krasse scheisse... da ist man stolz, dass man SVerweise und WENN-Formeln beherscht, da kommen die mit sowas... respekt!

          Kommentar


            #20
            wie se abgehen oO

            :D kra$$e freakz :D

            Kommentar


              #21
              Wow cool! Ich probier das mal aus :D

              Kommentar

              Lädt...
              X