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
GELÖST

Problem mit einem Macro

Frage Entwicklung VB for Applications

Mitglied: Konne01

Konne01 (Level 1) - Jetzt verbinden

27.02.2009, aktualisiert 13:05 Uhr, 2833 Aufrufe, 3 Kommentare

Hallo zusammen

Mein Problem ist das ich aus einer Zelle z.B. 063/02/04 drei neue Zellen machen möchte 063 02 04

So das Macro was ich bei euch gefunden habe macht dies ja schon fast perfekt.

Leider löscht es mir in den Zielzellen die Nullen so das das Ergebniss z.B so aussieht

063/02/04 63 2 4
Quelle Ziel

Kann man das Macro so ändern das auch die Nullen mit kopiert werden.

Sub Aufteilen()
Range("J:J").Select
Selection.Replace What:=Chr(10), Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns Destination:=Range("l1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Other:=True, OtherChar:="/"
Cells.EntireRow.AutoFit
Range("l1").Select
End Sub

Schon mal im voraus vielen Dank für eure Hilfe

Mfg.

Konrad

Ps. Sollte ich irgent etwas falsch gemacht haben, bitte ich um entschuldigung, aber es ist das erstemal das ich in einem Forum einen Beitrag schreiben.
Mitglied: NetWolf
27.02.2009 um 13:30 Uhr
Hallo Konrad,

du wandelst Text in Zahlen. Bei Zahlen gibt es keine führenden Nullen!!


Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)
Bitte warten ..
Mitglied: bastla
27.02.2009 um 14:58 Uhr
Hallo Konne01!

Je nachdem, was Du als Ergebnis benötigst (Text oder Zahl), kannst Du entweder die Zeilen vor
Cells.EntireRow.AutoFit
durch
01.
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _ 
02.
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Other:=True, OtherChar:= "/", _ FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))
ersetzen - dann wird beim Zerlegen das Textformat für die 3 Ergebnisspalten festgelegt, oder Du fügst an der genannten Stelle diese beiden Zeilen
01.
Columns("I:I").NumberFormat = "000" 
02.
Columns("J:K").NumberFormat = "00"
ein, um das Zahlenformat der Ergebnisspalten so anzupassen, dass die entstandenen Zahlenwerte drei- (bzw zwei-)stellig und mit führender/n Null/en angezeigt werden.

Grüße
bastla

P.S.: Findest Du die Darstellung im "Code"-Format nicht auch besser lesbar?
Bitte warten ..
Mitglied: Konne01
28.02.2009 um 10:13 Uhr
Hallo Bastla

An der Stelle schon mal tausend dank für deine Bemühung, werde es stätestens am Montag testen und dann berichten.

In dem Sinne schönes Wochenende

Gruß Konrad



Hat alles super geklappt. Vielen Dank für deine Hilfe

Gruß Konrad
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Macro Hilfe benötigt (6)

Frage von reissaus73 zum Thema VB for Applications ...

VB for Applications
gelöst EXCEL Macro oder ähnliches gesucht (3)

Frage von reissaus73 zum Thema VB for Applications ...

Windows Server
SimpleHelp - Problem (4)

Frage von ArnoNymous zum Thema Windows Server ...

Microsoft
Problem mit meinem PC (24)

Frage von AaronH96 zum Thema Microsoft ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 7
Bluesreens unternehmensweit (18)

Frage von SYS64738 zum Thema Windows 7 ...

Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

Frage von sebastian2608 zum Thema Festplatten, SSD, Raid ...

Windows 10
Programm Installation bei Win 10 Fehlerhaft (13)

Frage von Keineahnungvonnix zum Thema Windows 10 ...

Windows Netzwerk
DNS ins mehreren Subnetzen (13)

Frage von joerg zum Thema Windows Netzwerk ...