Anzeige
Archiv - Navigation
1492to1496
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
Inhaltsverzeichnis

Wert aus ActiveWorkseet in TextBox ausgeben. Wie?

Wert aus ActiveWorkseet in TextBox ausgeben. Wie?
09.05.2016 14:28:27
Marco
Hallo ich habe 3 Tabellen. "FS" "NS" "SS"
Je nachdem in welcher Tabelle man sich befindet, soll ein Wert aus der Tabelle in der Textbox erscheinen.
If Worksheets("FS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("FS").Range("A1").Value
ElseIf Worksheets("NS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("NS").Range("A1").Value
ElseIf Worksheets("SS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("SS").Range("A1").Value
End if
geht leider nicht :(

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus ActiveWorkseet in TextBox ausgeben. Wie?
09.05.2016 14:34:33
ChrisL
Hi Marco
Wieso nicht...
TextBox1.Value = ActiveSheet.Range("A1").Value
cu
Chris

AW: Wert aus ActiveWorkseet in TextBox ausgeben. Wie?
09.05.2016 14:55:52
Marco
Warum kompliziert, wenns auch einfach geht..
Vielen Dank Chris!!!

AW: Wert aus ActiveWorkseet in TextBox ausgeben. Wie?
09.05.2016 14:47:41
ChrisL
Hi Marco
Falls der Code beispielhaft zu verstehen ist und sich die einzelnen Abläufe unterscheiden...
Private Sub CommandButton1_Click()
Select Case ActiveSheet.Name
Case "FS"
TextBox1.Value = ThisWorkbook.Worksheets("FS").Range("A1").Value
Case "NS"
TextBox1.Value = ThisWorkbook.Worksheets("NS").Range("A1").Value
Case "SS"
TextBox1.Value = ThisWorkbook.Worksheets("SS").Range("A1").Value
End Select
End Sub

cu
Chris
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige