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
156to160
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
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

An L. Vira ( Mit VB6 in Excel lesen und schreiben)

An L. Vira ( Mit VB6 in Excel lesen und schreiben)
04.09.2002 17:58:04
Gerd
Hallo L.Vira
Noch einmal Danke für die Hilfe.
Es ist fast alles Perfekt, nur habe ich in jedem Sheets
Eine Datums reihe. Die ich beim Wechsel des Sheets
auch in der TextBox einlesen möchte.

Private Sub Command2_Click()
If Not LFlag Then Exit Sub
Dim X
List1.Clear
For X = 1 To Excel.sheets.Count
List1.AddItem (Excel.sheets(X).Name)
Next X

List2.Clear
For X = 4 To 35
List2.AddItem (Excel.sheets(1).cells(X, 2))
Next


End Sub
Private Sub List2_Click()
Dim Li%
Li = List2.ListIndex + 4
Text2.Text = List2.Text
Excel.sheets(1).cells(Li, 3).Select
End Sub

Wie gebe ich es ein dass alle Sheets erkant werden.
Excel.sheets(1).

Bei auslesen des Sheets 1 klappt alles sehr gut, sogar der cursor
Steht in der nächsten Spalte.

( Die Excelmappe ist für Zeiterfassung. )

Deshalb brauche ich noch mal deine Hilfe.

Beim Clickereignis steht das Datum in der TextBox11 Ok
weitere TextBoxen sollen nun die Anfangszeiten
die Endzeiten
die Überstunden
und so weiter in die Zeile eintragen
wo der Cursor steht.

.....................TextBox1.....TextBox2
Beispiel:............Anfang.........Ende
B4 01.10.2002....C4...?..............?
B5 02.10.2002....C5...?..............?
B6 03.10.2002....C6...?..............?


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: An L. Vira ( Mit VB6 in Excel lesen und schreiben)
04.09.2002 20:48:15
L.Vira
Du hast drei Möglichkeiten Sheets anzusprechen:
1. über den Index: Sheets(x)
2. über den Namen: Sheets("Tabelle1")
3. über den Codenamen: Tabelle1.cells(1,1)
oder Tabelle1.[a1]
oder Tabelle1.Range("A1")
Der Codename kann nur zur Entwurfszeit im Eigenschaftenfenster
festgelegt werden!
Um die daten in die Textboxen zu übertragen, muss der cursor nicht inder Zelle stehen.
Ich kann in deinem Code keine Textbox11 entdecken?
Hilf mir nochmal auf die Sprünge.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige