Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1120to1124
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

Optionsfelder

Optionsfelder
Fredy
Hallo alle
Ich möchte gerne Optionsfelder verwenden komme aber mit dem Code nicht klar
Wen ich einer von der Optionsfelder an klicke sollte es mir eigentlich eins von den 3
Früh", "Mittag", "Nacht auf dem Tabellenballt TM2Rapport Eingabe ein fügen
Leiter geht das noch nicht wirklich
Sattesten zeigt es nur das so an #WERT!
https://www.herber.de/bbs/user/66346.xls
Sub Daten_eintragen()
Dim arrSchichten
arrSchichten = Array("Früh", "Mittag", "Nacht")
With Sheets("TM2Rapport Eingabe").Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0) = Range("B9")
.Offset(1, 1) = Application.Index(Range("B58:B97"), Range("F9"))
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 3) = Range("B12")
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Optionsfelder
03.12.2009 15:21:33
ChrisL
Hallo Fredy
Zwei Probleme:
1. mit der rechten Maustaste auf das Optionsfeld klicken und die Zellenverknüpfung auf H9 erstellen.
2.
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
ersetzen durch:
.Offset(1, 2) = arrSchichten(Range("H9") - 1)
cu
Chris
AW: Optionsfelder
03.12.2009 15:47:01
Fredy
Ne geht immer noch nicht immer noch denselben Fehler #WERT!
AW: Optionsfelder
03.12.2009 15:59:39
ChrisL
Hallo Fredy
In Zelle H9 muss ein Wert 1, 2 oder 3 stehen... Da fehlt wohl noch die Zellverknüpfung (Problem 1)
mfg
Chris
Anzeige
AW: Optionsfelder
03.12.2009 22:23:34
Fredy
cool thx

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige