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, 2823 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

Mit freundlichen Grüßen.

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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Exchange Server
Problem mit POP3-Abruf eines Exchange-2013-Postfachs

Frage von YotYot zum Thema Exchange Server ...

Multimedia & Zubehör
gelöst BENQ Beamer Fernbedingung Frequenz Problem (4)

Frage von xbast1x zum Thema Multimedia & Zubehör ...

Windows Server
Google Chrome Web Store Problem auf Terminal Farm

Frage von dakoerry zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Problem: DVI zu VGA (8)

Frage von Protected zum Thema Multimedia & Zubehör ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (12)

Frage von Motte990 zum Thema Microsoft Office ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...