Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Code ändern

• Code ändern von Erich vom 29.08.2004 20:01:05
• AW: Code ändern - von Beni am 29.08.2004 20:32:14
  • AW: Code ändern - von Erich am 29.08.2004 20:45:25
    • AW: Code ändern - von Beni am 29.08.2004 21:04:20
      • Danke o.T - von Erich am 29.08.2004 21:14:28

Betrifft: Code ändern von: Erich
Geschrieben am: 29.08.2004 20:01:05

Hallo Excelprofis,

habe noch ein kleines Problem mit nachfolgenden code
geschrieben von Beni (Nochmals danke)

Private Sub CommandButton1_Click()
Dim intIndex As Integer
With Sheets(1)
lz = .Cells(65536, 1).End(xlUp).Row + 1
    For intIndex = 1 To 90
        .Cells(lz, intIndex) = Controls("ComboBox" & CStr(intIndex)).Value
    Next intIndex
End With
End Sub

Frage:

was muss ich an den code verändern, das ich vor den 90 Comboboxen noch die werte aus 4 Label in die Tabelle eintragen kann?

für eure Hilfe wäre ich euch sehr dankbar.

gruß

erich


Betrifft: AW: Code ändern von: Beni
Geschrieben am: 29.08.2004 20:32:14

Hallo Erich,
ich habe Dir den Codeteil vor den Vorherigen gehängt.
Gruss Beni

Private Sub CommandButton1_Click()
Dim intIndex As Integer
With Sheets(1)
lz = .Cells(65536, 1).End(xlUp).Row + 1
    For intIndex = 1 To 4
        .Cells(lz, intIndex) = Controls("Label" & CStr(intIndex)).Value
    Next intIndex
    For intIndex = 1 To 90
        .Cells(lz, intIndex + 4) = Controls("ComboBox" & CStr(intIndex)).Value
    Next intIndex
End With
End Sub

Betrifft: AW: Code ändern von: Erich
Geschrieben am: 29.08.2004 20:45:25

Hallo Beni,

danke für deine hilfe, habe moch ein kleine problem mit den code, den er bleit auf der zeile

.Cells(lz, intIndex) = Controls("Label" & CStr(intIndex)).Value

stehen
Fehlermeldung
objekt unterstützt bdiese eigenschaft oder methode nicht


P.S. (betrift die Label (130,132, 134, 135)

kanst du mir nochmals helfen?

gruß

erich




Betrifft: AW: Code ändern von: Beni
Geschrieben am: 29.08.2004 21:04:20

Hallo Erich,
die Labels müssen den Eigenschaftname "Label1", "Label2", usw. haben.
Gruss Beni




Betrifft: Danke o.T von: Erich
Geschrieben am: 29.08.2004 21:14:28

Danke Beni,

habe die label abgeändert und es funktioniert.

danke

gruß

erich