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

Excel Zellen von Textformat in Zahlenformat ändern

Frage Entwicklung VB for Applications

Mitglied: mreske

mreske (Level 1) - Jetzt verbinden

05.08.2009, aktualisiert 12:13 Uhr, 19444 Aufrufe, 3 Kommentare

Hallo,
ich habe eine Exceltabelle in der die Daten (in diesem Fall EAN Codes) als Textfeld angegeben sind. In jeder Zelle ist ein kleines Dreieck mit dem Kommentar, dass die Zahl in der Zelle ein Textformat hat. Wenn ich den Kommentar öffne, kann ich zwar diese Zelle ins Zahlenformat ändern aber ich denke, dass es sicher auch per Marko für alle Zellen in der Spalte gehen muss.

Im Anhang findet Ihr einen Screenshot als Beispiel.

fe19f24c83df19595c8db5da05b7c4d7-textformat-in-zahlenformat- - Klicke auf das Bild, um es zu vergrößern

Vielen Dank schon mal im Voraus für Eure Hilfe.

Beste Grüsse
Manfred
Mitglied: bastla
05.08.2009 um 12:55 Uhr
Hallo mreske!

Dafür braucht's noch nicht einmal ein Makro:
  • Schreibe in eine freie Zelle die Zahl 1
  • Kopiere diese Zelle mit Strg-C
  • Markiere die umzuwandelnden Zellen und wähle "Bearbeiten / Inhalte einfügen... / Multiplilzieren"
  • Jetzt noch den Kopiervorgang mit Esc abbrechen und die 1 aus dem ersten Schritt wieder löschen ...

Grüße
bastla
Bitte warten ..
Mitglied: mreske
05.08.2009 um 15:30 Uhr
Hi bastla,
tausend Dank für die schnelle Antwort. Mit so eine simplen Lösung hab ich nicht gerechnet. Ich sag´s nochmal....SUPER FORUM!!!

Als "Dankeschön" habe ich deine Anweisung als VBA Code geschrieben (damit es bei sehr langen Tabellen schneller geht) - vielleicht kann ja jemand was mit anfangen...


Sub Txt_In_Zahlenformat_kovertieren()

' erste zeile bestimmen
ErsteZeile = 1 ' erste zeile bestimmen

' Letzte beschriebene Zeile in Spalte A bestimmen
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

' Zahl 1 in Zelle ZZ1 schreiben
Range("ZZ1").Select
ActiveCell.FormulaR1C1 = "1"
Selection.Copy

'Bereich markieren
Range(Cells(ErsteZeile, 1), Cells(LetzteZeile, 1)).Select

'Bearbeiten / Inhalte einfügen... / Multiplilzieren"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

' die Zahl in mein gewünschtes Format umwandeln
Selection.NumberFormat = "0"

' die 1 in Zelle ZZ1 wieder löschen
Range("F1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select

End Sub

VIELE GRÜSSE
MANFRED
Bitte warten ..
Mitglied: bastla
05.08.2009 um 15:42 Uhr
Hallo mreske!
Mit so eine simplen Lösung hab ich nicht gerechnet.
Nicht, dass ich nicht auch gern mal ein Script verbreche, aber wenn's auch ohne geht ...

Danke jedenfalls für Dein Script und Deine Mühe (und wenn's keine war, trotzdem danke ).

Grüße
bastla

P.S.: Noch schöner sähe das Script in "< code> </code">-Tags aus ...
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel Zelle dynamisch einer Zeile zuordnen (3)

Frage von sammy65 zum Thema Microsoft Office ...

VB for Applications
gelöst Zelle in Excel per Klick einfärben (5)

Frage von C.Mue83 zum Thema VB for Applications ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(2)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Humor (lol)
gelöst Freidach Beitrag (40)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Firewall
gelöst Firewall Firmeneimsatz (22)

Frage von wiesi200 zum Thema Firewall ...

Multimedia & Zubehör
gelöst 8 GB USB Stick besitzt nur noch 4 MB Kapazität (13)

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