Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Zelleintrag Namen abfragen

Nach Zelleintrag Namen abfragen
15.02.2007 15:32:10
Fritz_W
Hallo Forumsbesucher,
wie kann ich erreichen, dass in einer Tabelle immer dann, wenn in der Zelle "G12" ein Eintrag erfolgt, sich ein "Fenster öffnet" (Namensabfrage). Es soll somit ein Benutzername eingegeben werden. Der eingegebene Name (Text) soll dann in die Zelle F14 der gleichen Tabelle "geschrieben" werden.
Vielen Dank für eure Unterstützung.
Mfg
Fritz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Zelleintrag Namen abfragen
15.02.2007 15:46:00
Andi
Hi,
das ginge zB so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$12" Then
Do
Range("F14") = InputBox("Bitte Name eingeben:")
If Range("F14") <> "" Then Exit Do
Loop
End If
End Sub

Du kannst aber auch automstisch den Namen eintragen lassen, unter dem der jeweilige user bei Windows angemeldet ist:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$12" Then
Range("F14") = Environ("username")
End If
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Nach Zelleintrag Namen abfragen
15.02.2007 15:51:55
Fritz_W
Hallo Andi,
klappt wunderbar.
Vielen Dank!
Gruß
Fritz
Gern geschehen... (ot)
15.02.2007 15:54:04
Andi
.
@Andi
15.02.2007 15:57:15
Fritz_W
Hallo Andi,
ich hab doch noch eine Frage.
Wie müsste der Code aussehen, wenn die Abfrage nicht bei jeder Zelländerung in G12, sondern nur bei einem bestimmten Zelleintrag, z.B. bei der Eingabe von "x" erfolgen soll!
Bereits an dieser Stelle Dank für die Hilfe!
Gruß
Fritz
AW: @Andi
15.02.2007 16:01:13
Andi
Hi,
dann ändere die if-Bedingung folgendermaßen (für beide Varianten analog):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$12" And Target.Value = "x" Then
Do
Range("F14") = InputBox("Bitte Name eingeben:")
If Range("F14") <> "" Then Exit Do
Loop
End If
End Sub

Schönen Gruß,
Andi
Anzeige
@Andi - Funktioniert prima! Danke! o.w.T.
15.02.2007 16:08:54
Fritz_W

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige