Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
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
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert aus ein Zell zu eine Label für 4 Tabellen

Wert aus ein Zell zu eine Label für 4 Tabellen
27.04.2016 07:38:40
roberto

Guten Tag,
Situation:
4 Tabelle, und auf jeder Tabelle ist auf die "C24" ein Wert die im Label1 in anderen Tabelle (Tabelle25, Tabelle30, Tabelle40 und Tabelle50) erscheinen sollte.
Eine Tabelle (25,30,40 oder 50) ist sichtbar je nach Parameter die auf die Tabelle 1,2,3 oder 4 eingetragen sind,
und alles funktioniert nach einen Button "Weiter"
Probleme:
Wie kann man machen dass auf die Labe1 dem Wert aus C24 erscheint.?
Etwas so ist nicht gut, weil nur aus eine Tabelle dem Wert kommt.!!
Label1.Caption = Worksheets("Tabelle1").Range("C24")
Noch anderes: sobald das Button "Weiter" angeklickt ist, ist nur eine Tabelle Sichtbar, und zwar eine von die 4 Tabelle (25,30,40 oder 50)
sorry für mein schlechtes Deutsch...

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus ein Zell zu eine Label für 4 Tabellen
27.04.2016 09:45:00
ChrisL
Hi Roberto
Siehe Anhang:
https://www.herber.de/bbs/user/105289.xlsm
Im Modul der jeweiligen Tabelle:
Private Sub CommandButton1_Click()
Call NextSheet
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C24" Then Call RenameLabel(Target)
End Sub

Im Standard-Modul:
Sub NextSheet()
Dim arSheet() As Variant
Dim i As Integer
arSheet() = Array("25", "30", "40", "50")
For i = 0 To UBound(arSheet)
If Worksheets(arSheet(i)).Visible Then
If i = UBound(arSheet) Then
Worksheets(arSheet(0)).Visible = True
Worksheets(arSheet(i)).Visible = False
Exit Sub
Else
Worksheets(arSheet(i + 1)).Visible = True
Worksheets(arSheet(i)).Visible = False
Exit Sub
End If
End If
Next i
End Sub


Sub RenameLabel(rng As Range)
Dim arSheet() As Variant
Dim i As Integer
arSheet() = Array("25", "30", "40", "50")
For i = 0 To UBound(arSheet)
Worksheets(arSheet(i)).Label1 = rng.Text
On Error Resume Next
Application.EnableEvents = False
Worksheets(arSheet(i)).Range("C24") = rng
Application.EnableEvents = True
Next i
End Sub

cu
Chris

Anzeige
AW: Wert aus ein Zell zu eine Label für 4 Tabellen
27.04.2016 10:06:40
roberto
Hallo Chris,
Einfach genial und super schön, Vielen Dank

300 Forumthreads zu ähnlichen Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Werte in Tabelle schreiben
uw

Hallo,
ich habe in einer Tabelle die Tagessummen, die in eine andere Tabelle übertragen werden sollen.
In dem Beispiel sind die Daten in dem Blatt "Ausgangstabelle".
Diese Tabelle wird jeden Tag aktualisiert.
In jedem neuen Monat steht wieder in Zelle "B2" der Monatserste.
P...
17.12.2008 16:58:50
Thread-ID: 1033661
6 Beiträge
Anzeige
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Werte in Tabelle eintragen
fred


Hallo zusammen
Ich habe eine Arbeitsmappe mit ca 50 Tabellenblättern. Im Sheet Namensliste Im Bereich C9 bis C59 sind Namen eingetragen. Jeder dieser Namen ist ein Name eines Sheets. Ich möchte jetzt gerne für meine Diagramme Werte aus diesen Sheets in Tabelle 1 eingetragen haben.
...
18.01.2009 22:23:00
Thread-ID: 1041281
3 Beiträge
Combobox in tabelle einfügen mit werten
chris

Hallo mal wieder,
bitte bei diesem Problem um Hilfe.
Mit dem unten stehendem Code will ich in Tabelle1 Zeile 1 Comboboxen erstellen lassen.
Das klappt auch.Nur wenn ich jetzt diese zeile mit laufen lassen
Call test
Dann kommt ein fehler.
Laufzeitfehler 9 . Index auserhal...
13.02.2009 10:35:00
Thread-ID: 1050388
7 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
werte in tabelle suche
kirsche

hallo leute,
mal wieder stehe ich vor einem problem und hoffe auf eure hilfe.
ich möchte über eine userform daten nach bestimmten kriterien von einer tabelle in eine andere übertragen. das klappt mit meinem makro auch schon ganz gut, leider nur solange die reihenfolge des suchbegriffs b...
22.03.2009 20:51:26
Thread-ID: 1062708
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
4
5
8
9
2
6
2
2
5
5
9
10
29
7
9
6
3
2
9
4
11
5
2