Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel Spalte teilen (nach max. Länge und Wörtern)

Frage Microsoft Microsoft Office

Mitglied: kattnerzone

kattnerzone (Level 1) - Jetzt verbinden

09.10.2009 um 13:12 Uhr, 12737 Aufrufe, 3 Kommentare

Guten Tag, ich habe folgendes Problem:

In dem Feld A1 steht z.B.: Zylinderschraube DIN912 M5x25 A2

Das Feld darf jetzt aber nur noch 20 Zeichen beinhalten, alles was darüber hinaus geht, soll in das Feld B1 kopiert werden.
Habe dafür auch schon die Funktion "TEIL" gefunden, bloß leider schneidet die Funktion das Feld nach genau 20 Zeichen ab.

Leider passt das dann sehr häufig nicht mehr mit den Wörtern im Feld zusammen.

Bei dem Beispiel würde dann z.B. im Feld A1 "Zylinderschraube DIN" stehen und der Rest im anderen Feld. Das macht natürlich nicht ganz so viel Sinn.

Excel müsste dann z.B. im Feld A1 nur Zylinderschraube stehen lassen und den Rest in das nächste Feld kopieren.

Es würde aber leider auch nicht ausreichen, wenn nach dem ersten Wort abgeschnitten wird, weil evtl. die ersten 3 Wörter bloß 14 Zeichen lang sind und auch zusammen gehören z.B. Handrad Typ 50 (Feld A1) und dann Linksgewinde (Feld B1). Deshalb funktioniert auch die Funktion Text in Spalten nicht.

Hat evtl. jemand eine Lösung für mein Problem, denn es wäre echt mühselig, wenn man nachher durch alle Zeilen gehen muss und die Werte anpassen.

Gruß
Kattnerzone
Mitglied: godlie
09.10.2009 um 13:24 Uhr
Hallo,

ich fasse mal zusammen du brauchst eine Funktion die dir nach 20 Zeichen etwas trennt,
wobei aber die Sinnhaftigkeit erhalten bleibt?

Dann hab ich die Lösung für dich:
Besorg dir nen Praktikant!

Alternativ würde ich über ein Macro schaun wo das erste Leerzeichen ist und dort trennen.
wenns über 20 Zeichen ist, tja....
Bitte warten ..
Mitglied: nube-li
09.10.2009 um 13:35 Uhr
Es gibt da eine Funktion "links". schau dir die mal genauer an.
Die schneidet ab, jedoch verschiebt sie den Rest nicht in b1 oder sonst wohin.. für des brauchst ne andere Lösung
Bitte warten ..
Mitglied: SamTrex
10.10.2009 um 01:17 Uhr
Guten Morgen Kattnerzone,

also, du könntest mit folgendem kleinen Macro eine Trennung bewerkstelligen:

01.
Sub test() 
02.
    Dim a As String                         'Variable deklarieren / Zellenwert als String! 
03.
    a = Range("a1").Value                   'Wert aus Zelle in Variable "a" einlesen 
04.
    If Len(a) > 20 Then                     'Prüfen ob String länger wie 20 Zeichen 
05.
        Range("A1").Value = Mid(a, 1, 20)   'Inhalt von "a" bis Zeichen 20 in Zelle A1 schreiben 
06.
        Range("B1").Value = Mid(a, 21)      'Inhalt von "a" ab Zeichen 21 in Zelle B1 schreiben 
07.
    End If 
08.
    a = Nothing                             'Variable zerstören 
09.
End Sub
Du könntest jetzt natürlich auch die IF Abfrage gegen eine SELECT CASE Abfrage tauschen und noch mehr Bedingungen setzten.
Allerdings kann das Macro nie wissen wo du deinen String am liebsten trennen möchtest ....

Gruß Sam
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

VB for Applications
gelöst Excel VBA .csv Import in Tabelle x, ab Spalte y

Frage von drimrim zum Thema VB for Applications ...

Batch & Shell
gelöst Excel Farblich (3)

Frage von Berlin62 zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (17)

Frage von SYS64738 zum Thema Weiterbildung ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...