Office: Zelleninhalt abfrage mit if

Hallo liebes Forum,

ich hab da mal wieder was:

Ich möchte beim öffnen eines Dokumentes eine routine ablaufen lassen, die folgendermaßen ausschaut.

ich möchte beim ersten öffnen das in einer bestimmten Zelle über eine Inputbox eine eingabe gemacht wird. Den code habe ich!
Dann soll das Dokument unter eine festgelegten Namen, der sich wiederum aus einen Zellenbezug zusammensetzt der mit der vorherigen eingabe zu tun hat automatisch speichern. Das habe auch soweit. Denke ich.
wenn ich aber dann das so gespeicherte Dokument öffne soll die startroutine natürlich übersprungen werden.

Ich stelle mir das so vor, dass ich zunächst frage ob in der Zelle z.B. A1 ein Wert steht, wenn nicht dann über inputbox werteingeben. -> Speichen blabla

Wenn da ein Wert drinn speht ( was ja nach dem speichern und somit beim nächstenmal öffnen des Dokument so wäre soll die Routine übersprungen werde.

If - Then - Else,denke ich is klar.

Bin aber momentan zu blöde diese schleife hinzubekommen, da ich nicht weis wie ich eine Zelle nach einem Wert abfragen kann.

Also wenn A1 = nix dann routine, Wenn A1 = irgedein Eintrag dann goto ende oder so.

für viele ein kleines Problem, für mich gerage ein großes.

Bitte um kurze Hilfestellung, BESTEN DANK

Gruß
Mikelsun

:)

 

Hallo Mikelsun,

vielleicht hilft Dir folgender Denkansatz weiter (ich kenne Deinen "Restcode" nicht, daher hier eben nur ein Schubser *wink.gif* ).

Code:

cu
myfake

 

Danke myfake,

manchmal sieht man den Wald vor lauter Bäume nicht. Hatte einfach vergessen das Tabellenblatt mit ein zu beziehen!!

Wenn man Sheets("Tabelle1") vergisst, darf man sich nicht wundern wenn es einen Fehler gibt wenn man unter Tabelle2 abgespeichert hat.
Das sind halt die kleingkeiten die es ausmachen.

THX

Mikelsun

 

Hallo zusammen, in diesem Zusammenhang hänge ich an einem Punkt.
Ich will mi einen Wert aus einem andern Tabellenblatt holen.
Die Variablen sind definiert, aber ich erhalte diese Fehlermeldung:


Ist es ggf. ein Problem, dass in dem besagten Feld eine Formel hinterlegt ist, die dann diesen Wert "Kiel" erst ausgibt?
Wie kann ich das ggf. und am leichtesten umgehen?

BG Sven

 

Moin,

die Fehlermeldung weist Dir den Weg: entweder wsHilfe ist nicht dimensioniert oder existiert nicht. Mit Formelergebnis oder festem Value hat das nichts zu tun.

Schau Dir auch noch mal die With ...-Umgebung an.

Grüße

 

Es fehlt ein End If
Sehr viel besser, als einen 17 Jahre(!) alten Thread mittels Screenshot zu reaktivieren, wäre es, wenn Du den Code postest.
Gerne innerhalb von Code-Tags, die zugegebener Weise in dieser Forensoftware gut versteckt sind.

 

Hallo zusammen,

der Kontext ist der, dass ich die Variable adress befüllen möchte und das Programm je nach Auswahl eine zugewiesene Liste in die Variable speichern soll.

Der gesamte Passus im Code ist dieser:

Variablendefinition

Code:

Dim cmk As String, text As String, adress As String
Dim cml As String, ma As String, anhang As String
Dim wsQuelle As Worksheet, wsHilfe As Worksheet

Dim wkbQuelle  As Workbook
Dim olApp As Object


Set wkbQuelle = ActiveWorkbook
Set wsQuelle = wkbQuelle.Worksheets("Freigabeantrag")
Set wsHilfe = wkbQuelle.Worksheets("Hilfstabelle")

Die auch bereits in andern Prozeduren Besens funktioniert.

Code:

    If wsHilfe.Range("G2") = "Kiel" Then
     adress = wsHilfe.Range("A19:B37").Select
    
    Else
    
    adress = wsHilfe.Range("A40:B61").Select
    
    End If

Reicht Euch das aus?

 

Moin!
adress ist bei Dir als String deklariert.
Daher brauchst Du
adress = wsHilfe.Range("A19:B37").Address
Aber:
Ich bin mir ziemlich sicher, dass Du im weiteren Programmablauf nicht auf den Adressen-Text (hier "$A$19:$B$37"), sondern eher auf den Bereich zugreifen willst.
Dann eher so
Dim adress As Range
Set adress = wsHilfe.Range("A19:B37")
Bist Du Dir sicher, dass Du 10 Variablen brauchst?
Ich benutze Variablen nur dann, wenn sie mehrfach im Code genutzt werden.
Sonst machen diese den Code nicht lesbarer, sondern eher das Gegenteil!
(ist aber nur meine persönliche Ansicht)

Gruß Ralf

 

Noch etwas:
Du codest
Set wsHilfe = wkbQuelle.Worksheets("Hilfstabelle")
wobei wkbQuelle das ActiveWorkbook ist.
Bist Du sicher, dass die richtige Mappe gerade aktiv ist?

 

Okay, ich erläutere mal den Zusammenhang.

Ich will ein aktives Formular zunächst unter einem neuen Namen abspeichern und anschließend an spezifische Adressaten versenden. Das soll insgesamt über einen Button ausgelöst werden.
Das Abspeichern und den Aufruf der Mail inklusive Anhang habe ich schon, das funktioniert.

Jetzt möchte ich über eine Combobox die Einträge aus einer Tabelle anzeigen lassen, damit von dort die richtigen Ansprechpartner als Adresse der Mail ausgewählt werden können.
Einzugrenzen ist das Ganze über je eine Liste für einen Ort, der hier ja als Kriterium abgefragt wird, um die dafür passende Liste auszuwählen.

Mit den Variablen mache ich mir das Leben schon leichter, weil die tatsächlich mehrfach vorkommen, oder mir mindestens den Programmiertext leichter lesbar machen.

 

Ohne Beispieldatei mit kompletten Code wird das nix!

 

Okay, da muss ich erst eine Beispieldatei zusammenbasteln, den die Realdaten kann ich nicht raus geben.
Das mach ich mal alles dann in vereinfachter Form.

 

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

 

Hallo RPP63,

dies ist jetzt die Datei. Das Speichern der Datei funktioniert mit dem Code.
Danach möchte ich ein Formular öffnen, in dem der Anwendner die korrekte E-Mail auswählen kann.
Diese Auswahl wird aber durch den im vorigen Formular bestimmten Standort erst definiert.
Also soll das Form den Wert in der Hilfstabelle abfragen und mit dem Kriterium die korrekte Liste auswählen.

Dann diese Auswahl als adresse in den Code für die Adresszuweisung der danach erstellten Mail mit der zweiten aber einheitlichen Mailadresse übernehmen.
Ohne die Mailauswahl funktioniert das ja auch alles. Die E-Mail wird mit Adresse Text und Anhang erstellt.

Jetzt fehlt mir also nur noch die Auswahl und Zuweisung der variablen Adresse.