Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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

Zahlen und Buchstaben in Spalten trennen

Frage Microsoft Microsoft Office

Mitglied: DJSchwollkopp

DJSchwollkopp (Level 1) - Jetzt verbinden

02.05.2013 um 09:16 Uhr, 2544 Aufrufe, 3 Kommentare

Hallo zusammen,

ich habe eine Excel Spalte A1 in der z.B. 16 Wochen, 200 Stück, etc aufgelistet sind.
Nun möchte ich aus dieser einen Spalte zwei Spalten machen. Dabei soll ich B1 der Zahlenwert stehen (z.B. 16, 200) und in der Spalte C1 die Einheiten (Stück, Wochen, etc)aufgelistet werden.
Danke für die Hilfe im voraus!

DJSchwollkopp

PS: Ich setze Excel 2010 ein.
Mitglied: 76109
02.05.2013, aktualisiert um 10:32 Uhr
Hallo DJSchwollkopp!

Doller Nickname

Versuchs mal mit diesem Makro:
01.
Option Explicit 
02.
 
03.
Sub SplitTextToColumns() 
04.
    Dim aTempA As Variant, aTempB As Variant, aValues As Variant, i As Long 
05.
     
06.
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row 
07.
        If Cells(i, "A").Text <> "" And Cells(i, "B").Text = "" Then 
08.
            aValues = Split(Cells(i, "A"), ",") 
09.
             
10.
            If UBound(aValues) = 1 Then 
11.
                aTempA = Split(Trim(aValues(0))) 
12.
                aTempB = Split(Trim(aValues(1))) 
13.
                aValues(0) = aTempA(0) & ", " & aTempB(0) 
14.
                aValues(1) = aTempA(1) & ", " & aTempB(1) 
15.
                Cells(i, "A").Resize(1, 2).Value = aValues 
16.
            End If 
17.
        End If 
18.
    Next 
19.
     
20.
    Columns("A:B").AutoFit 
21.
End Sub
Den Quelltext im VBA-Editor in das betreffende Tabellenblatt (vermutlich Tabelle1) einfügen und über Menu>Extras>Makro starten. Anstatt der Spalte B:C habe ich allerdings die Spalte A:B genommen, da mir die Spalte A danach sinnlos erscheint. Mit diesem Makro können auch weitere Werte in Spalte A angefügt und das Makro erneut gestartet werden. Das Makro aktuallisiert nur Zeilen, in denen die Spalte B Leer ist...

Gruß Dieter
Bitte warten ..
Mitglied: colinardo
02.05.2013, aktualisiert um 13:12 Uhr
Hi DjSchwollkopp,

ich glaube du meintest das so, oder ?:

A B C
16 Wochen =GLÄTTEN(LINKS($A1;FINDEN(" ";$A1))) =GLÄTTEN(RECHTS($A1;LÄNGE($A1)-FINDEN(" ";$A1)+1))
200 Stück =GLÄTTEN(LINKS($A2;FINDEN(" ";$A2))) =GLÄTTEN(RECHTS($A2;LÄNGE($A2)-FINDEN(" ";$A2)+1))
... ...
Grüße Uwe
Bitte warten ..
Mitglied: it-frosch
02.05.2013 um 13:28 Uhr
hallo,

das klingt nach einer Übungsaufgabe.

Sieh dir mal die den Menüpunkt Text in Spalten an.
Ich würde das Leerzeichen als Trennzeichen nehmen.

grüße vom it-frosch
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Per Batch Datei die Zahl jede Zell in einer Spalte um 10 verkleinern (12)

Frage von ha5257 zum Thema Batch & Shell ...

Datenbanken
MySQL: Zwei Spalten in einer View zählen (11)

Frage von Memo66 zum Thema Datenbanken ...

Exchange Server
Ersten Buchstaben einer Mail werden abgeschnitten (2)

Frage von Philipp.S zum Thema Exchange Server ...

Neue Wissensbeiträge
Humor (lol)

Wo ist der Fehler auf dem Bild?

(9)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Proxy Server Settings Cloud + EWS (17)

Frage von SomebodyToLove zum Thema Exchange Server ...

Windows Server
PDF Editor für den Einsatz auf Terminal Servern (16)

Frage von kwame501 zum Thema Windows Server ...

Windows Installation
Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen (14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Virtualisierung
Unterschied zwischen VDI und Terminal Server Lösungen (13)

Frage von tukawi06 zum Thema Virtualisierung ...