So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an IT-Fachinformat...

IT-Fachinformatiker
IT-Fachinformatiker, Systemadministrator
Kategorie: Computer
Zufriedene Kunden: 6838
Erfahrung:  Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
32504664
Geben Sie Ihre Frage in der Kategorie Computer hier ein
IT-Fachinformatiker ist jetzt online.

Liebes Expertenteam Ich m chte folgenden Zellinhalt in 3

Kundenfrage

Liebes Expertenteam

Ich möchte folgenden Zellinhalt in 3 verschieden Zellen nebeneinander einzeln kopiert haben. Der Spaltenentitel wäre B1 YE, C1 FC, D1 FH.

Wie am Beispiel zu sehen ist, sind die Zellinhalte unterschiedlich aufgebaut. Gesucht werden aber immer die Spaltentitel und deren Werte.

A1
12 YE
OR
18000 FC
OR
49500 FH

--------------
A2
38000 FC
OR
53000 FH

-------------
A3
10 YE
------------

Ist es möglich nach dem Titel ( YE;FH; FC ) zu suchen und dessen Wert in die entsprechende Zelle zu schreiben?

Mit freundlichem Gruss Marcel
Gepostet: vor 6 Jahren.
Kategorie: Computer
Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Also ich gehe jetzt mal von folgendem aus:

B1 C1 D1 <- Excel Spalten
YE FC FH <- Ihre Überschriften der Spalten
12 18 495 <-. Ihre Werte der Spalten

als Beispiel ist diese Form korrekt? Sie können natürlich nach dem Titel suchen:

1. <STRG>+<F> dort geben Sie den entsprechenden Titel ein das wäre der manuelle Weg
2. Automatisiert via VBA d.h. es muss ein Makro in VBA programmiert werden welches:

a) nach einer bestimmten Spalte also dem Titel sucht
b) den Wert der gefundenen Spalte in die gewünschte Zielzelle schreibt

Gruss Günter
Kunde: hat geantwortet vor 6 Jahren.

12 YE OR 18000 FC OR 49500 FH

 

Diese Werte stehen alle in der Zell A1. Nun möchte ich die einzelnen Werte in den Spalten geeschrieben haben.

 

12 YE in B1, 18000 FC in C1, 49500 FH in D1.

 

Das zweite Beispiel zeigt nur an, dass die Werte unterschiedlich sein können und diese unterschiedliche Rangfolge innerhalb der Zelle haben können.

 

mit freundlichem Gruss

 

Marcel Hollenstein

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo, achso :-) also, das geht nur wenn man mit Hilfe von VBA ein entsprechendes Makro programmiert Excel selbst hat keine entsprechende Trennerfunktion implementiert. Man müsste folgendermaßen vorgehen:

1. Eine UserForm erzeugen durch drücken von <ALT>+<F11>
2. Ein Command-Steuerelement auf das Formular setzen (links ist die Toolbox)
3. Doppelklick auf den Button "Command1/BefehlXYZ"
4. Es erscheint folgendes:

Private Sub Command1Click ()

End Sub

Dies erst mal folgendermaßen abändern (ist ein Beispiel bezogen auf sog. Strings):

Private Sub Command1Click ()
Dim i As Integer
Dim k As Integer
Dim s1 As String
Dim s2 As String
Dim r As Range '** Range ist das zentrale Objekt um in Excel auf Zellen zuzugreifen

s1="MEINE_SPALTE"
k=Mid(s1," ",1) '** wir suchen ein Leerzeichen " " also Chr(32)

If k>0 Then
MsgBox("gefunden!")
'** Hier Code für das einsetzen in die Zellen
Else
MsgBox("nicht gefunden!")
'** Hier Code für das weiter suchen einsetzen
Range("A1",DerEntsprechendeWert) '<--- Pseudocode
End If

End Sub

Das wäre die Einleitung das ganze wird dann entsprechend ausgebaut zentrale Rolle hierbei spielt das Range-Objekt dies ist in der Excel-Hilfe sehr gut beschrieben kommen Sie damit erst mal soweit klar? Natürlich stehe ich für weitere Fragen immer gern zur Verfügung!

MfG Günter

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo noch mal zum Anreiz habe ich hier einige Beispiele die das Range-Objekt verdeutlchen:

Beispiel 1: Werte anhängen
Option Explicit '** Variablen müssen deklariert sein z.B. Dim X As Integer

Sub test() '** eigenes Unterprogram
With Sheets("Tabelle1") '** Alle Arbeitsbereiche durchlaufen mit With
.Range(.Cells(1, 2), .Cells(1, 4)).Merge '** Werte anhängen, Cells sind die Zellen
End With
End Sub

Biespiel 2: Zellen direkt formatieren:
Sheets("Tab1").Range(Cells(j, m), Cells(j, m)).Font.size=13

Sie sehen, das Ihr Problem nur durch VBA gelöst werden kann. VBA (Visual Basic for Applications) stellt seit mehr als 15 Jahren eine zentrale Schnittstelle und Programmierumgebung für Office-Produkte von Microsft dar. Ohne VBA wird sich Ihr Problem nicht lösen lassen, denn es müssen in Ihrem Fall bestimmte Zeichen gefunden und auf Grundlage des Resultats die Werte voneinander getrennt werden um sie dann wiederrum in andere Zielzellen zu schreiben.

MfG Günter



Kunde: hat geantwortet vor 6 Jahren.

Vorerst Danke schön

 

Ich dachte, dass es ein Lösung mit Links/Rechts geben sollte. Ich kann die Zeile ja ohne Umbruch und ohne Leerzeichen darstellen. Bei 2 Werten in der Zelle geht dies noch, aber bei drei Werten nacheinander weiss ich nicht wie ich die Formel darstellen muss. Auch kann der Wert mit CY auch in der Mitte stehen, dass heisst die Terme können vertauscht sein. " Es gibt für mich also keine Lösung " Schau in der Zelle A1 nach einem String welcher mit CY endet und schreibe diesen in die Zelle B1" Schade ;-)) Mit VBA komme ich nicht klar.

 

mit freundlichem Gruss

 

Marcel

 

9999FH 1000CY9999FH1000CY

=LINKS(A8;SUCHEN(" ";A8;1)-1)

=RECHTS(A8;SUCHEN(" ";A8;1)-1)

 

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo Marcel, also hättest Du vielleicht einen Screenshot für mich? Damit ich sehen kann, wie es jetzt aussieht und wie es später ca. aussehen soll? Ein Bild macht es wesentlich einfacher eine Lösung zu finden als ein Text :-) ich schaue mal nach und melde mich gleich.. MfG Günter

Kunde: hat geantwortet vor 6 Jahren.

Hallo Günther

 

graphic

 

Die Zellen sind immer in dieser Weise aufgebaut. Mit Blank, Umbruch und OR. Es ist also nicht immer YE am Anfang und deshalb dachte ich nach " schau in der Zelle xy nach Wert vor FC, FH und schreibe diesen Wert in die neue Zelle. YE max "99" FH und FC max"99999"

 

liebe Gruss aus der Schweiz

 

Marcel

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo Marcel, also ich habe mir da jetzt mal Gedanken gemacht ich vermute, das man das über einen SVerweis lösen könnte ggf. müsste dieser verschachtelt werden. Ich müsste das aber noch selbst ausprobieren. Ich denke aber, das es vielleicht auch für Dich hilfreich wäre Dir die folgenden Links anzusehen dort findest Du nicht nur sehr gute Erklärungen zu Excelformeln sondern auch detailierte Erklärungen zum SVerweis inkl. Tipps und Tricks ich denke, das ein SVerweis in Kombination mit einer Wenn-Formel zum Erfolg führt wie gesagt testen müsste ich es noch. Die andere Alternative wäre eben VBA

Die folgenden Links dürften Dir bestimmt helfen ich müsste es ja auch erst selbst testen d.h. mich auch erst einmal einlesen ich bitte dich daher kurz die nachfolgenden Links einmal zu besuchen:

Formel-Sammlungen:
http://ms-excel.eu/benutzer/benutzer/excel-formelsammlung.html
http://www.netzwelt.de/download/5092-formelsammlung-excel-forexcel.html
http://www.excel-center.de/linksammlung/linksammlung.php?k=Excel
http://www.excelformeln.de/tips.html

SVerweis:
http://www.online-excel.de/excel/singsel.php?f=9
http://excelwelt.de/Excelallg/sverw.html
http://www.youtube.com/watch?v=kxiyNi3f4KM
http://www.borkoffice.de/html/sverweis.html

Grundlagen VBA für Excel:
http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen

VBA-Makro Sammlung für Excel:
http://ms-excel.eu/

Ich hoffe, das wir damit Dein Problem lösen können. Ich stehe Dir natürlich weiterhin zur Verfügung.

MfG Günter

Kunde: hat geantwortet vor 6 Jahren.

Danke schön Günter

 

Ich werde mich bei Gelegenheit einlesen. Meine Geschäftsfelder sind die Flugzeuge und das "Drumherum". Dies absorbiert meine Zeit und deshalb ist Excel nicht mein Core Bereich und ich muss eine solche Leistung einkaufen. Dies ist mir bewusst und suche deshalb Personen/Organisationen die das anbieten und können.

 

Wenn du mir eine entsprechende " Excel Organisation" angeben könntest, das wäre super. Und die Bezahlung ist das kleinere Übel.

 

Mfg Marcel

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo MArcel, also ich würde vorschlagen wenn Du eine solche Leistung bei einem Dienstleister direkt einkaufen musst und ich gehe davon aus, das das Produkt 100% laufen muss dann würde ich einen entsprechenden Auftrag an eine externe Firma vergeben. Zu diesem Zweck habe ich Dir mal einige seriöse und sehr professionelle Firmen/Dienstleister herausgesucht, die sich auf Entwicklung von Office also auch Excel spezialisiert haben das wären:

http://www.eworks.de/solutions/office.html?gclid=CKuFgL-fn6ICFQQgZwodC1fOyA
http://www.lise.de/?gclid=CISZoJCgn6ICFQm7ZwodsB8Lyw
http://www.mikemitterer.at/produkte-dienstleistung/programmierung/office-vba/

Diese drei haben sich alle auf VBA-Programmierung (und Windows) spezialisiert und sind sehr kompetent dort wirst Du nicht nur eine Lösung erhalten sondern eine Lösung, die alle Dinge beinhaltet die bei einem solchen Projekt notwendig sind d.h. schriftliche Fixierung von Aufgaben/Ziele, IST-Analyse/Soll-Zustand, Pflichtenheft usw. natürlich kann man dies mit dem Dienstleister bei deutlich kleineren Projekten auch abkürzen.

Du solltest ggf. direkt telefonischen Kontakt herstellen. Ich hoffe, das ich Dir erst einmal weiter geholfen habe.

MfG Günter


IT-Fachinformatiker, Systemadministrator
Kategorie: Computer
Zufriedene Kunden: 6838
Erfahrung: Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
IT-Fachinformatiker und weitere Experten für Computer sind bereit, Ihnen zu helfen.
Kunde: hat geantwortet vor 6 Jahren.

Lieber Günter

 

Ich danke XXXXX XXXXX den Punkt getroffen. Werde mich überraschen lassen.

Ich wurde super von dir betreut & unterstützt und der Lösungsansatz ist sehr hilfreich.

 

Gruss aus der Schweiz und ein herzliches Dankeschön

 

Marcel

Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo Marcel, nix zu Danken! Dafür bin ich da bzw. dafür sind hier die Experten da! Ich helfe gern das ist mein Job! Lieben Gruss aus Deutschland Günter

Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
< Zurück | Weiter >
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
  • Endlich ein Experte, der mir wirklich weiterhelfen konnte! DANKE! JustAnswer Kunde Taunusstein
  • Ihre Antwort hat mir sehr geholfen, die richtigen Entscheidungen zu treffen. Dass Sie mir darüber hinaus noch 2 Empfehlungen gegeben haben fand ich super. Vielen Dank! JustAnswer Kunde Freiburg
  • Die ausgearbeiteten Hilfen waren gut strukturiert, leicht verständlich und zu 100% hilfreich für mich. Vielen Dank Markus B. Karlsruhe
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/PY/Pyroflash/2011-4-21_104934_tronic.64x64.jpg Avatar von Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
  • http://ww2.justanswer.com/uploads/rufushoschi/2010-11-08_135947_bild.jpg Avatar von IT-Fachinformatiker

    IT-Fachinformatiker

    Systemadministrator

    Zufriedene Kunden:

    6338
    Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
  • http://ww2.justanswer.com/uploads/COMINAROSA/2010-02-03_172238_PASSBILD.JPG Avatar von COMIN IT-Service

    COMIN IT-Service

    Dipl.-Ing.

    Zufriedene Kunden:

    779
    Dipl.Ing (FH) ET, NT, IT
  • http://ww2.justanswer.com/uploads/RaubergerConcep/2010-03-02_102740_Portraet64.jpg Avatar von RaubergerConcept

    RaubergerConcept

    IT-Specialist

    Zufriedene Kunden:

    234
    Mehr als 10 Jahre Erfahrung in Softwareentwicklung und Netzwerktechnik
  • http://ww2.justanswer.com/uploads/LF/lfalkenburg/2015-2-8_01843_.64x64.jpg Avatar von Lutz Falkenburg

    Lutz Falkenburg

    IT-Specialist

    Zufriedene Kunden:

    96
    Seit über 20 Jahren beruflich im IT-/IUK-Bereich tätig. Egal ob EinzelPC der Netzwerk...
  • http://ww2.justanswer.com/uploads/BI/BigDaddyXD/2012-10-24_20126_WhySoSeriousJob.64x64.jpg Avatar von BigDaddyXD

    BigDaddyXD

    Informatiker

    Zufriedene Kunden:

    1588
    Microsoft Certified Professional, Microsoft Certified Desktop Support Technican,...
  • http://ww2.justanswer.com/uploads/PU/Pucky80/2011-5-14_54537_pucky80.64x64.jpg Avatar von Pucky80

    Pucky80

    IT-Systemkaufmann

    Zufriedene Kunden:

    1322
    MCITP (Microsoft Server 2008 Enterprise Administrator)
 
 
 

Ähnliche Fragen in der Kategorie Computer