Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zielerreichung mit VBA

Zielerreichung mit VBA
14.12.2004 14:37:45
Susanne
Hallo zusammen!
Ich bin dabei die Zielerreichungen 2004 der Mitarbeiter vorzubereiten. Dazu möchte ich ein Dropdown in eine User-Form basteln in dem man den Mitarbeiter aussuchen kann. Dann möchte ich die Zielerreichung in Prozent des Mitarbeiters in die UserForm eingeben, der dann in die jeweilige Zelle der Tabelle zurückgeschrieben wird. Wie mache ich sowas denn am geschicktesten?
Anbei meine Beispieldatei:
https://www.herber.de/bbs/user/14823.xls
Wenn mir jemand einen Tipp geben könnte wäre ich sehr dankbar!
Vielen Dank und allen einen schönen Tag!
Gruss
Susanne

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zielerreichung mit VBA
14.12.2004 18:53:16
Klaus-Dieter
Hallo Susanne,
du brauchst ein UserForm mit einer ComboBox (ComboBox1), einer TextBox (Textbox1) und einer Schaltfläche (CommandButton1). Dort fügst du diesen Quelltext ein:
Option Explicit

Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Cells(Me.ComboBox1.ListIndex + 6, 4) = Me.TextBox1.Value
End Sub



Private Sub UserForm_Initialize()
Dim s As Integer
ComboBox1.Clear
For s = 6 To Worksheets("Tabelle1").Range("B65536").End(xlUp).Row
With ComboBox1
.AddItem Worksheets("Tabelle1").Cells(s, 2).Value
End With
Next s
CommandButton1.Caption = "Zielwert eintragen"
End Sub

Dann sollte das funktionieren.
Gruß Klaus-Dieter
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige