Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code ändern

Code ändern
29.08.2004 20:01:05
Erich
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

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

Betreff
Datum
Anwender
Anzeige
AW: Code ändern
Beni
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

AW: Code ändern
29.08.2004 20:45:25
Erich
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
Anzeige
AW: Code ändern
Beni
Hallo Erich,
die Labels müssen den Eigenschaftname "Label1", "Label2", usw. haben.
Gruss Beni
Danke o.T
29.08.2004 21:14:28
Erich
Danke Beni,
habe die label abgeändert und es funktioniert.
danke
gruß
erich

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige