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, 2832 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
E-Mail
Problem mit Spam-Mail (6)

Frage von huberd zum Thema E-Mail ...

Hosting & Housing
Problem mit: Reverse DNS Resolution - PTR Record (2)

Frage von Krabbat zum Thema Hosting & Housing ...

Batch & Shell
gelöst FTP und bach script I Problem von nicht komplett geladener Files (9)

Frage von drscoop zum Thema Batch & Shell ...

Windows Netzwerk
Problem mit Netzwerkfreigabe - Domain (5)

Frage von Linuxguru zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

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

Rechtliche Fragen
Hotspot rechtssicher betreiben? (14)

Frage von xSiggix zum Thema Rechtliche Fragen ...

ISDN & Analoganschlüsse
gelöst Splitter - RJ45 zu RJ11? (14)

Frage von Waishon zum Thema ISDN & Analoganschlüsse ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (12)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...