Top-Themen

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

Bestimmte Werte aus einer Zelle auslesen

Frage Microsoft Microsoft Office

Mitglied: CeMeNt

CeMeNt (Level 2) - Jetzt verbinden

05.12.2008, aktualisiert 15:46 Uhr, 8726 Aufrufe, 3 Kommentare

Moin Leute,

aus einer SQL-Datenbank habe ich eine Tabelle nach Excel kopiert.
Nun möchte ich aus einer Zelle bestimmte Werte herauslesen.
In der SQL-Datenbank war dies zuvor ein "Memo"-Feld. Die einzelnen Werte sind dort mit einem Zeilenumbruch getrennt.

Im Excel sieht das dann z.B. so aus:

A_VSG_06mm*?0?(kein)?0?A_VSG_06mm?0?(kein)?0?(kein)?0?(kein)...

Nun möchte ich in einer Zelle nur die Zeichen bis zum ersten Zeilenumbruch auslesen
In einer zeiten Zelle sollen dann die Zeichen zwischen dem zweiten und dem dritten Zeilenumbruch stehen. (usw.)

Das Ergebnis sollte ungefähr so aussehen:

A B C D
1 A_VSG_06mm*?0?(kein)?0?A_VSG_06mm?0 A_VSG_06mm* (kein) A_VSG06mm

Die Länge der einzelnen Werte ist immer unterschiedlich.
Auch die Bezeichnungen sind immer verschieden.
Als einzige "Konstante" kann man den Zeilenumbruch ansehen.

Ich hoffe, dass mir hier jemand helfen kann.

Danke schon mal,

Gruß CeMeNt
Mitglied: bastla
05.12.2008 um 12:44 Uhr
Hallo CeMeNt!

Versuch es mit folgendem Makro:
01.
Sub Aufteilen() 
02.
Range("A:A").Select 
03.
Selection.Replace What:=Chr(10), Replacement:=";", LookAt:=xlPart, SearchOrder:=xlByRows 
04.
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
05.
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Semicolon:=True 
06.
Cells.EntireRow.AutoFit 
07.
Range("A1").Select 
08.
End Sub
Annahme ist, dass sich die aufzuteilenden Zellen (siehe Zeilen 2 und 3) in Spalte A befinden. Sollte es so nicht klappen, kannst Du versuchen, Chr(10) durch Chr(13) oder eine Kombination davon (etwa Chr(13) & Chr(10) oder umgekehrt) zu ersetzen. Die Zeilenschaltungen werden durch ";" ersetzt - falls dieses im aufzuteilenden Text vorkommen sollte, müsste ein alternatives Zeichen verwendet werden - dann etwa so:
01.
Sub Aufteilen() 
02.
Range("A:A").Select 
03.
Selection.Replace What:=Chr(10), Replacement:="§", LookAt:=xlPart, SearchOrder:=xlByRows 
04.
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
05.
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Other:=True, OtherChar:="§" 
06.
Cells.EntireRow.AutoFit 
07.
Range("A1").Select 
08.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: CeMeNt
05.12.2008 um 13:35 Uhr
Moin bastla,

wie kommst Du bloß immer auf solch verrückte Sachen...?

Aber leider leider funktioniert das noch nicht so wie gewünscht.

Damit das Makro ausgeführt wird, muss ich den gewünschten Text über die Adress-Zeile kopieren und dann in ein neues Tabellenblatt einfügen.
(So funktioniert Dein Makro wirklich prima).

Wenn ich aber z.B. eine ganze Spalte kopiere und einfüge, passiert gar nichts. (Die Zellen werden unformatiert eingefügt)

Am liebsten wäre es mir dann, wenn das Ganze auch mit einer Verknüpfung funktioniert.

z.B. sind die original Werte im Tabellen-Blatt "Übersicht" eingetragen
Im Tabellen-Blatt "Auswertung" könnte ich dann schreiben:

=Übersicht!A1
=Übersicht!A2
=Übersicht!A3
...


Geht das wohl auch irgendwie?
Muss ja auch nicht unbedingt ein Makro sein.
Irgendeine Formel mit
=LINKS "bis zum ersten Zeilenumbruch"

oder in der Art würd mir ja auch schon langen...

Danke schon/noch mal

CeMeNt
Bitte warten ..
Mitglied: bastla
05.12.2008 um 15:46 Uhr
Hallo CeMeNt!

Aber leider leider funktioniert das noch nicht so wie gewünscht.
Und Du hast schon alle Kombinationen von 10 und/oder 13 durch?

Irgendeine Formel mit
=LINKS "bis zum ersten Zeilenumbruch"
setzt ebenfalls voraus, dass die Darstellung des Zeilenumbruches (als Chr(10) bzw Chr(13)) bekannt ist - dann sollte aber eigentlich auch das obige Makro klappen ...

Abgesehen davon - wenn Du in jedem Feld der Spalte A einen Datensatz hast: Wolltest Du diesen tatsächlich jeweils anstatt auf Spalten auf Zeilen aufteilen?

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Wenn eine zelle einen bestimmten wert aus anderen zellen annimmt...
gelöst Frage von BerndVorwerkMicrosoft Office4 Kommentare

Hallo an alle, ich wende mich einmal mehr vertrauensvoll an euch: Wie muss die Funktion in Excel aussehen, wenn ...

Microsoft Office
Excel - Werte bestimmter Zellen nach definierter Suche auslesen
gelöst Frage von Excel-StarterMicrosoft Office7 Kommentare

Hallo zusammen, ich bräuchte wieder einmal eure Hilfe für folgende Excelauswertung: Aus einer Lagerbestandsliste sollen jeweils für einen Artikel ...

Microsoft Office
Wenn Inhalt Zelle X dann bestimmte Zellen
gelöst Frage von KnuefiMicrosoft Office2 Kommentare

Hallo zusammen, ich hoffe mir kann jemand weiterhelfen. Ich habe eine Excel Datei mit zwei Tabellen Blätter Tabelle1 Tabelle2 ...

PHP
Wert aus txt auslesen und in ein bestimmtes feld setzen
Frage von Dr.BytePHP2 Kommentare

Hallo, ich benutze folgenden Text um bei einem bestimmten Wert einen bestimmten Begriff in ein bestimmtes Feld zu setzen: ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 6 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 11 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 11 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 23 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...