Microsoft Excel

Herbers Excel/VBA-Archiv

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

Code ändern

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