|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2010 07:41:38 |
- |
|
|
|
13.12.2010 12:38:26 |
Severus |
|
|
|
13.12.2010 13:13:23 |
- |
|
|
|
13.12.2010 13:49:34 |
Severus |
|
|
|
13.12.2010 14:26:51 |
- |
|
|
 Aw:Automatisch befüllen |
13.12.2010 15:11:56 |
Severus |
|
|
|
14.12.2010 06:59:23 |
- |
|
|
|
14.12.2010 07:05:35 |
Severus |
|
|
|
14.12.2010 07:09:02 |
- |
|
|
|
14.12.2010 07:22:00 |
- |
|
|
|
14.12.2010 07:24:26 |
- |
|
|
Von:
Severus |
Datum:
13.12.2010 15:11:56 |
Views:
1092 |
Rating:
|
Antwort:
|
Thema:
Aw:Automatisch befüllen |
- schrieb am 13.12.2010 14:26:51:
Severus schrieb am 13.12.2010 13:49:34:
- schrieb am 13.12.2010 13:13:23:
Severus schrieb am 13.12.2010 12:38:26:
- schrieb am 13.12.2010 07:41:38:
Hallo!
In meiner Tabelle stehen in den Zellen in Spalte T diverse Nachnamen. Ich würde gerne die Zellen der Spalte AA automatisch befüllen lassen mit Emailadressen, d.h. ich bräuchte einen Code, der sagt, wenn in irgendeiner Zelle in Spalte T "Huber" steht, dann soll in Spalte AA automatische "Markus.Huber@firma.com" stehen. (Es handelt sich dabei um ca. 5 verschiedene Namen!)Das bedeutet auch, wenn nun die Tabelle ergänzt wird, dass automatisch die Spalte AA befüllt werden soll. Es gibt auch einige leere Zellen in Spalte T, diese sollen einfach nicht berücksichtigt werden.
Vielen Dank schon mal!
Sory! Aber woher soll der Code den "Markus" und das "firma.com" bekommen?
Severus
Ich dachte man kann das manuell irgendwie in den Code schreiben. Mit einer If-Anweisung vllt... Wenn in einer Zelle der Spalte T "Huber" steht, dann in Zelle der Spalte AA immer "Markus.Huber@firma.com" schreiben. Sind ja immer die selben Namen.
Geht das nicht?
Wenn es tatsächlich nur 5 Namen sind, ok.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 20 Then Exit Sub 'Spalte T
Select Case UCase(Target)
Case "HUBER"
Target.EntireRow.Columns(27) = "mailto:Markus.Huber@firma.com"
Case "..."
Target.EntireRow.Columns(27) = "mailto:...." 'undsoweiter
End Select
End Sub
Das Ucase steht da, um Probleme mit Groß-/Kleinschribung zu vermeiden, da VBA casesensitiv ist. Daher die Namen bei den Case - Anweisungen groß schreiben!
Severus
Und wie soll ich den Code am besten auslösen lassen, so dass sich immer alles automatisch aktualisiert ohne das ich einen Button oder ähnliches drücken muss? Geht das, denn momentan passiert noch gar nichts!
Die Prozedur muß in das Klassenmodul des Arbeitsblattes, in dem die fragliche Tabelle steht, also z.B.
Tabelle1(Tabelle1)
Dann wird der Code jedesmal ausgelöst, wenn in Spalte T etwas geändert wird (da dort ja der Name steht).
In allen anderen Spalten passiert nichts.
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2010 07:41:38 |
- |
|
|
|
13.12.2010 12:38:26 |
Severus |
|
|
|
13.12.2010 13:13:23 |
- |
|
|
|
13.12.2010 13:49:34 |
Severus |
|
|
|
13.12.2010 14:26:51 |
- |
|
|
Aw:Automatisch befüllen |
13.12.2010 15:11:56 |
Severus |
|
|
|
14.12.2010 06:59:23 |
- |
|
|
|
14.12.2010 07:05:35 |
Severus |
|
|
|
14.12.2010 07:09:02 |
- |
|
|
|
14.12.2010 07:22:00 |
- |
|
|
|
14.12.2010 07:24:26 |
- |
|
|