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 pregh.

pregh
pregh, Informatiker
Kategorie: Computer
Zufriedene Kunden: 42
Erfahrung:  4 Jahre Berufserfahrung, davon 2 als leitender Softwareentwickler.
64861198
Geben Sie Ihre Frage in der Kategorie Computer hier ein
pregh ist jetzt online.

Problem in Excel: In einem als Kalender aufgebauten Tabellenblatt

Kundenfrage

Problem in Excel: In einem als Kalender aufgebauten Tabellenblatt hab ich pro Tag 5 Filialen zum Technischen Update eingetragen.
In einer anderen Tabelle, die die Daten der Filiale als Liste enthält, möchte ich jetzt das Datum des technischen Updates automatisch eintragen lassen.
Mit SVERWEIS und VERGLEICH bin ich nicht weitergekommen.

Weiß jemand eine Antwort?
Gepostet: vor 4 Jahren.
Kategorie: Computer
Experte:  xxx hat geantwortet vor 4 Jahren.
Guten Tag !

Vielen Dank XXXXX XXXXX Anfrage. Ich hoffe sehr, Ihnen bei der Lösung Ihres Problems behilflich sein zu können.


So ganz klar ist mir das jetzt nicht. Aber ich tippe einfach einmal, daß man das mit einer Kombination der Funktionen SVERWEIS(......INDIREKT(....)) hinbekommen sollte.
Kunde: hat geantwortet vor 4 Jahren.
Hallo Pysikus,

damit komm ich noch nicht weiter. Ich hab mein Problem mal als Beispiel angelegt und die Screenshots beigefügt.

Gruß
Frank Milkert

graphic

graphic
Experte:  xxx hat geantwortet vor 4 Jahren.
Danke XXXXX XXXXX Screenshots. Das habe ich dann doch etwas mißverstanden.

Aus meiner Sicht werden Sie da nicht um die Verwendung eines Makros herumkommen. VB ist aber leider nicht meine Baustelle, deshalb gebe ich die Frage wieder für andere Experten frei.
Ich hoffe, es kann Ihnen so weitergeholfen werden.
MfG, Physikus
Experte:  pregh hat geantwortet vor 4 Jahren.
Hallo, :)

meiner Meinung nach kommen Sie mit der bestehenden Tabellenstruktur auch um kein Makro herum.

Ich vermute Sie benotigen die Kalenderstruktur für eine Art Historie? Gibt es dann beispielsweise mehrere Einträge mit Text "100" im Kalender?

Das Problem ist, dass ja mehrere Felder immer überprüft werden müssen, damit festgestellt werden kann, welches Datum übertragen werden soll.

Beste Grüße!
pregh, Informatiker
Kategorie: Computer
Zufriedene Kunden: 42
Erfahrung: 4 Jahre Berufserfahrung, davon 2 als leitender Softwareentwickler.
pregh und weitere Experten für Computer sind bereit, Ihnen zu helfen.
Kunde: hat geantwortet vor 4 Jahren.
Hallo pregh,

da hab ich falsch geklickt. Eigentlich wollten Sie ja noch weitere Informationen.
Der Wert 100 darf immer nur einmal in der Tabelle erscheinen, da es um einen Update Termin geht. Wird der Wert ein zweites Mal eingegeben, dann darf die Funktion gern einen Fehler ausgeben.

Meine Idee war ursprünglich, das mit VERGLEICH die Spaltenposition in der Matrix ermittelt wird und darüber hole ich mir in der Datumszeile das entsprechende Datum. Ich bekomm es aber nicht hin. Haben Sie eine Idee?

Gruß
Frank Milkert
Experte:  pregh hat geantwortet vor 4 Jahren.
Hallo Herr Milkert,

ihre Idee ist soweit korrekt, erfordert nur einen Vergleich über alle Zellen, quasi

For Each cell in Range(Kalender)
if (cell.value <> "") then
pushDate(cell.value, date)
end if
Next

So sähe das in Pseudocode aus. Gibt es etwas, was gegen Makros auf Ihrer Seite spricht?

Mit einer einfachen Formel ist es nicht handhabbar. Es sei denn Sie ändern die Struktur der Tabelle, aber dann müssten Sie auf den Kalender verzichten. Dann könnten Sie aber auch gleich auf die Formel verzichten und das Datum direkt in die Tabelle auf Bild 2 eintragen.

Beste Grüße!
Kunde: hat geantwortet vor 4 Jahren.
Hallo, ich hatte die letzten Tage keine Zeit mich mit dem Problem zu beschäftigen, bin aber für Hilfe dankbar. Ich bin in Makros bei Excel nicht so firm, werd den Tipp aber ausprobieren. Haben Sie noch eine Idee, wie ich das Makro am Besten formuliere? Ich wollte es eigentlich aufzeichnen - wie in Word - und dann anpassen, aber das läuft anscheinend in Excel alles etwas anders.

Gruß
Frank Milkert
Experte:  pregh hat geantwortet vor 4 Jahren.
Hallo Herr Milkert,

ich helfe Ihnen gerne (nicht nur, weil Sie Sich oben verklickt und somit bezahlt haben :D).

Ich habe vor einiger Zeit einige Makros programmiert, da lassen sich ja sogar richtig schöne Oberflächen basteln, etc. Allerdings habe ich da nie Makros ausgezeichnet, sondern nur programmiert.

Ich kenne die VBA-Syntax nicht mehr ganz auswendig, Sie müssen da eventuell korrigieren, aber ich probiers mal auf die Schnelle

Über Extras->Makros->VBA müssten Sie ja in den VBA-Editor kommen. Dort würde ich unter "Diese Arbeitsmappe" (oder so) mit folgendem anfangen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rgCalendar As Range(X8,Z9) 'Anpassen an Ihren Kalender!
If (sh = Worksheets(1)) Then 'Eventuell über den Namen prüfen, ich weiß nicht, ob 'das sh Objekt in dem Fall vom Typ Worksheet ist.
If Intersect(Target, rgCalendar) Is Not Nothing 'sind wir im Kalender?
If (Target.Cells.Count = 1) ' nur eine Zelle bearbeitet?
pushDate(Target, Target.Columns(1).Cell(1,1).value) ' Datum in anderes 'Worksheet schreiben
End if
End If
End If
End Sub


Private Sub pushDate(ByVal calendarEntry As Range, ByVal newDate As String)
For Each cell in Worksheets(2).Columns(1)
If (cell.value = calendarEntry.Cell(1,1).value) Then
Worksheets(2).Cell(cell.rowindex, cell.columnindex +1).value = newDate
End If
Next
End Sub


Irgendwie so stelle ich mir das gerade vor - wie gesagt, ich erhebe keinen Anspruch auf korrekte Syntax, aber vielleicht haben Sie ja irgendjemand zur Hand (oder Sie können das vielleicht selbst), der Ihnen das kurz testet und korrigiert.


Sollten Sie öfter Bedarf an Makros haben, wenden Sie Sich gerne an mich... vielleicht lässt Sich da ja was machen. ;)


Beste Grüße!

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