Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
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
Blatt und Namen einer Schaltfläche zuweisen
02.12.2008 10:44:00
Steff
Hallo allerseits,
Folgendes Beispiel:
Tab1 soll 10 Schaltflächen enthalten.
Jede Schaltfläche bekommt ein definiertes TabBlatt zugewiesen.
Tab2 enthält eine Namensliste, hier soll aus Spalte C der Name
auf der Schaltfläche erscheinen, steht kein Name drin, soll auf
der Schaltfläche "Frei" erscheinen.
Hoffe meine Erklärung klingt nicht ganz so blöd.
Ist das machbar?
LG
Steff

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

Betreff
Datum
Anwender
Anzeige
hier eine Variante ...
02.12.2008 10:58:46
Matthias
Hallo
ins Tabellenblatt1:

Private Sub Worksheet_Activate()
With Worksheets("Tabelle2")
If .Cells(1, 3).Value  "" Then CommandButton1.Caption = .Cells(1, 3).Value Else  _
CommandButton1.Caption = "Frei"
If .Cells(2, 3).Value  "" Then CommandButton2.Caption = .Cells(2, 3).Value Else  _
CommandButton2.Caption = "Frei"
If .Cells(3, 3).Value  "" Then CommandButton3.Caption = .Cells(3, 3).Value Else  _
CommandButton3.Caption = "Frei"
If .Cells(4, 3).Value  "" Then CommandButton4.Caption = .Cells(4, 3).Value Else  _
CommandButton4.Caption = "Frei"
If .Cells(5, 3).Value  "" Then CommandButton5.Caption = .Cells(5, 3).Value Else  _
CommandButton5.Caption = "Frei"
If .Cells(6, 3).Value  "" Then CommandButton6.Caption = .Cells(6, 3).Value Else  _
CommandButton6.Caption = "Frei"
If .Cells(7, 3).Value  "" Then CommandButton7.Caption = .Cells(7, 3).Value Else  _
CommandButton7.Caption = "Frei"
If .Cells(8, 3).Value  "" Then CommandButton8.Caption = .Cells(8, 3).Value Else  _
CommandButton8.Caption = "Frei"
If .Cells(9, 3).Value  "" Then CommandButton9.Caption = .Cells(9, 3).Value Else  _
CommandButton9.Caption = "Frei"
If .Cells(10, 3).Value  "" Then CommandButton10.Caption = .Cells(10, 3).Value Else  _
CommandButton10.Caption = "Frei"
End With
End Sub


die Namen stehn in Tab2 in C1:C10
Gruß Matthias

Anzeige
Sehr schön.Danke!!! owT
02.12.2008 11:18:00
Steff
.

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige