Hallo VB-Paradise'ler,
Mein Ziel:
Ich habe eine Excel Tabelle mit Kontaktdaten aus Outlook und möchte die Inhalte von Benutzerfeld 1, 2, 3 und 4 in das Feld Notizen speichern. Zusätzlich soll das, was bereits in Notizen steht auch in Notizen ausgegeben werden.
Mein Problem:
Wie kann bewerkstellige ich das am besten ?
Ich habe schon mal einen kleines Programm geschrieben, da ich aber ein Newbie in Sachen VB bin und nur PHP beherrsche wusste ich mir nicht anders zu helfen und habe es einfach in PHP geschrieben. Vielleicht könnt ihr es ja in VBA übersetzen.
Den Folgenden Code würde ich dann in der Zeile BY2 ausführen. (Ich habe keine Ahnung ob das überhaupt geht - sorry)
Zur Erklärung:
Ich habe den Inhalt von Notizen solange in BX zwischen gespeichert.
$i = Nummer der Zeile
4131 = letzte Zeile meiner Tabelle
BX$i = z.B. BX2 = Inhalt Notizen (zwischengespeichert)
AX$i bis BA$i = Inhalt Benutzerfeld 1 bis 4
Ihr könnt mir natürlich auch eine ganz andere Lösung vorschlagen - da ich eben keine Ahnung von VBA habe und nur schnell mein Problem lösen möchte, reicht auch ein Code ohne nähere Erläuterung.
Mein Ziel:
Ich habe eine Excel Tabelle mit Kontaktdaten aus Outlook und möchte die Inhalte von Benutzerfeld 1, 2, 3 und 4 in das Feld Notizen speichern. Zusätzlich soll das, was bereits in Notizen steht auch in Notizen ausgegeben werden.
Mein Problem:
Wie kann bewerkstellige ich das am besten ?
Ich habe schon mal einen kleines Programm geschrieben, da ich aber ein Newbie in Sachen VB bin und nur PHP beherrsche wusste ich mir nicht anders zu helfen und habe es einfach in PHP geschrieben. Vielleicht könnt ihr es ja in VBA übersetzen.
Den Folgenden Code würde ich dann in der Zeile BY2 ausführen. (Ich habe keine Ahnung ob das überhaupt geht - sorry)
Zur Erklärung:
Ich habe den Inhalt von Notizen solange in BX zwischen gespeichert.
$i = Nummer der Zeile
4131 = letzte Zeile meiner Tabelle
BX$i = z.B. BX2 = Inhalt Notizen (zwischengespeichert)
AX$i bis BA$i = Inhalt Benutzerfeld 1 bis 4
PHP-Quellcode
- <?php
- for($i=2; $i<=4131; $i++) {
- if(!isset(BX$i)){
- echo" = \"Benutzerfeld 1: \"&AX$i&\"
- Benutzerfeld 2: \"&AY$i&\"
- Benutzerfeld 3: \"&AZ$i&\"
- Benutzerfeld 4: \"&BA$i&\"
- Notizen:
- \""
- } else {
- echo" = \"Benutzerfeld 1: \"&AX$i&\"
- Benutzerfeld 2: \"&AY$i&\"
- Benutzerfeld 3: \"&AZ$i&\"
- Benutzerfeld 4: \"&BA$i&\"
- Notizen: \"&BY$i\""
- }
- ?>
Ihr könnt mir natürlich auch eine ganz andere Lösung vorschlagen - da ich eben keine Ahnung von VBA habe und nur schnell mein Problem lösen möchte, reicht auch ein Code ohne nähere Erläuterung.