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.

Sehr geehrte Damen und HerrenIch ben tige Unterst tzung

Kundenfrage

<p>Sehr geehrte Damen und Herren Ich benötige Unterstützung in der Programmierung von Visual Basic. Ich möchte folgende Programmierzeilen in VBA programmieren, dass Sie nahtlos zum bestehenden Code passt. Wer kann mir helfen? IF(AND(I="1 to two";sh.Name="1 to two") THEN body = sheet 1 to two:"A1" IF(AND(I="1 to three";sh.Name="1 to three") THEN body = sheet 1 to three:"A1" IF(AND(I="1 to four";sh.Name="1 to four") THEN body = sheet 1 to four:"A1" IF(AND(I="1 to five";sh.Name="1 to five") THEN body = sheet 1 to five:"A1" ELSE body = I Vorhergehende Programmierzeilen: 'Check the other files that you want to attach in column H If Trim(Me.Cells(myCell.Row, "H").Value) "" Then StringFileNames = Me.Cells(myCell.Row, "H").Value FileNamesArray = Split(StringFileNames, Chr(10), -1) For I = LBound(FileNamesArray) To UBound(FileNamesArray) On Error Resume Next If FileNamesArray(I) "" Then If Dir(FileNamesArray(I)) "" Then If Err.Number = 0 Then F = F + 1 ReDim Preserve FArr(1 To F) FArr(F) = FileNamesArray(I) Else Err.Clear Me.Cells(myCell.Row, "H").Interior.ColorIndex = 3 WrongData = True End If Else Me.Cells(myCell.Row, "H").Interior.ColorIndex = 3 WrongData = True End If End If On Error GoTo 0 Next I</p><p> Ich bin telefonisch unter +41 79 710 08 15 erreichbar.</p>
Gepostet: vor 5 Jahren.
Kategorie: Computer
Experte:  B.Tröster hat geantwortet vor 5 Jahren.
Hallo!
Es wäre hilfreich, wenn sie sagen könnten wie der "bestehende Code" aussieht, da ansonsten eine Einbettung nicht möglich ist.

Mit freundlichen Grüßen,
B.Tröster
Kunde: hat geantwortet vor 5 Jahren.
Darf ich Ihnen die vorbereitete Excel-Datei zumailen?
Experte:  B.Tröster hat geantwortet vor 5 Jahren.
Hallo,
Ich denke das wäre nicht so gut, da sich meine VBA-Kenntnisse in Grenzen halten. Je nachdem wie der Code aussieht würde ich mich sicher zurecht finden, sicher bin ich aber nicht.
Bevor sie mir persönliche Daten schicken, wäre es besser sie warten nochmal. Werde die Frage für meine Kollegen freigeben.
Etwas mehr Informationen wären dennoch sinnvoll. zb:
Was soll das Skript tun?
Code Auszüge aus dem bisherigen Skript.

Mit freundlichen Grüßen,
B.Tröster
Experte:  IT-Fachinformatiker hat geantwortet vor 5 Jahren.
Guten Morgen,

aus Ihrem Quellcode kann man so nicht "schlau" werden, es wäre sinnvoll wenn Sie folgendes tun würden:

a) den Quellcode sauber posten und zwar mit Wagenrücklauf d.h.:

Zeile 1
Zeile 2
.
.
Zeile n

nicht hintereinander, so wie es oben steht da man die Codefragmente kaum auseinander halten kann und somit auch den Sinn des Codes nicht prüfen kann.

b) Mit welcher VBA/Office Version bzw. welcher Office Komponente arbeiten Sie genau es macht den Eindruck, als handelt es sich um Excel

c) kann es sein, das Sie den Code aus VB 6 oder einer noch älteren Office Version irgendwie übernommen haben

Wenn Sie mir mitteilen könnten, was genau Sie erreichen wollen könnte man ggf. über einen alternativen Code nachdenken.

LG Günter
Kunde: hat geantwortet vor 5 Jahren.

Sehr geehrter Günter

 

Ich arbeite mit Office 2007, insbesondere mit Excel und Outlook.

 

Ich habe ein Template bei http://www.rondebruin.nl/mail/outlooksheettemplatepdf.htm heruntergeladen und in einer Excel-Mappe eingefügt, weil es einem sehr effizient ermöglicht, entweder ganze Excel-Mappen oder einzelne/mehrere Sheets als angehängte Pdf-Datei an verschieden definierte email-Empfänger zu versenden. Bei Bedarf können noch zusätzliche Attachements angefügt werden.

 

Ich möchte das Template deshalb modifizieren,
1. weil der in der Spalte I hinterlegte Text im HTML-Format gesendet werden soll;

2. damit verschiedene, alternative (u.v.umfangreichere) Texte in einem jeweils separaten hinterlegten Sheet gesendet werden können;

3. weil jedes email automatisch signiert werden soll.

 

Falls Sie an einer vorbereiteten Excel-Datei interessiert sind, kann ich sie Ihnen zustellen.

 

Freundliche Grüsse

 

Ignaz Hidber

Experte:  IT-Fachinformatiker hat geantwortet vor 5 Jahren.
Hallo, verstehe ich das jetzt richtig, Sie möchten mehr oder weniger nur, das Exceldateien als PDF-Dateien erzeugt werden und versendet werden sollen? Ich denke, das was Sie da haben möchten dürfte ziemlich aufwendig sein und ich denke, das das nicht ohne weiteres funktionieren wird und die Empfänger sind u.U. sderh oft gar keine Outlook Clients d.h. bei Thunderbird würde ein solch erzeugte Mail direkt falsch interpretiert werden.

Senden Sie mir doch mal diese Datei an rufushoschi AT yahoo PUNKT de ich schaue mir diese mal an. Was genau möchten Sie denn eigentlich im Kern erreichen das ist mir immer noch nicht ganz klar gewirden.

LG Günter

Kunde: hat geantwortet vor 5 Jahren.

Werde ich machen.

 

Freundliche Grüsse

 

Ignaz Hidber

Experte:  IT-Fachinformatiker hat geantwortet vor 5 Jahren.
Hallo, ich habe die Datei erhalten und werde sie mir anschauen, bitte haben Sie ein wenig Geduld ich denke im Verlauf des morgigen Tages weiss ich mehr. LG Günter
Experte:  IT-Fachinformatiker hat geantwortet vor 5 Jahren.
Hallo, ich habe mir Ihre Datei angesehen leider kann ich Ihnen keine Unterstützung anbieten, da ich keinerlei Outlook Version installiert habe. Ich werde diese Frage daher wieder freigeben ich bitte Sie daher um Verständnis. LG Günter
Kunde: hat geantwortet vor 5 Jahren.

Sehr geehrter Günter

 

Vielen Dank für Ihre bisherigen Bemühungen.

 

Freundliche Grüsse

 

Ignaz Hidber

Experte:  IT-Fachinformatiker hat geantwortet vor 5 Jahren.
Hallo, kein Problem in kurzer Zeit wird sich ein weitere Experte um Sie kümmern. Falls das nicht so sein sollte, teilen Sie mir dies doch kurz mit. LG Günter
Kunde: hat geantwortet vor 5 Jahren.

Sehr geehrte Damen und Herren

 

Ich habe eine Excel-Datei (Version 2007) mit zwei Datenblättern (1. Blatt: "Eingabe der Daten"; 2. Blatt "Archiv").

Die erste Spalte des kopierten Bereichs ist ein Datum, der Rest der Zeile besteht aus n-Daten:

Blatt „"Eingabe der Daten", Bereich (C13:CJ22)

 

01.01.2011 _____ 10 ____ 15 ____ 8 ____ ... ____ n-1 ____ n

02.01.2011 ______ 7 _____ 6 ____ 8 ____ ... ____ n-1 ____ n

...

m-1

10.01.2011 _____ 11 ____ 10 ____ 5 ____ ... ____ n-1 ____ n

 

 

Blatt "Archiv" , Bereich (C13:CJm)

30.12.2010 ______ 5 _____ 5 ____ 5 ____ ... ____ n-1 ____ n

31.12.2010 ______ 7 _____ 6 ____ 8 ____ ... ____ n-1 ____ n

01.01.2011 _____ 10 ____ 15 ____ 8 ____ ... ____ n-1 ____ n

02.01.2011 ______ 7 _____ 6 ____ 8 ____ ... ____ n-1 ____ n

m-1

05.01.2011 ______ 1 _____ 2 ____ 3 ____ ... ____ n-1 ____ n

 

Nach dem Einfügen der kopierten Daten in das erste Blatt „Eingabe der Daten", Bereich (C13:CJ22) wird überprüft, ob die eingefügten Daten mit dem vorgegebenen Raster übereinstimmen. Wenn die Daten mit dem Raster übereinstimmen, hat die Zelle A1 den Wert 0; ansonsten den Wert >0. Soweit, so gut.

 

Mein Anliegen:

Wenn A1 = 0, dann soll das Makro die "neuen" Daten chronologisch ins Blatt „Archiv" kopieren. Die Daten im Blatt "Eingabe der Daten" sollen aber bestehen bleiben.

Es sollen nur diejenigen Zeilen des Blattes „Eingabe der Daten" im Blatt „"Archiv" archiviert werden, die dort noch nicht vorhanden sind, d.h. nur die Zeilen vom 6. - 10.1.2011.

Zum Abschluss soll die Meldung erscheinen, dass das Archiv aktualisiert wurde.

 

Wenn A1 > 0, dann soll das Makro die Meldung machen, dass die Daten nicht kongruent sind und korrigiert werden müssen.

 

Freundliche Grüsse

Ignaz

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