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 Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Uhrzeit aus Tabelle in UF Textbox

Betrifft: Uhrzeit aus Tabelle in UF Textbox von: Erich
Geschrieben am: 14.09.2004 19:23:18

Hallo Excelprofis,

habe ein problem, ich lese über nachfolgenden Code (nochmals Danke an Nepumuk) alle Daten aus dem Tabellenblatt in meine userform1 ein, soweit so gut, nun möchte ich aber das in der Textbox 2 auch die Uhrzeit richtig angezeit wird, wenn ich den Spinbutton betätige.
was muss ich an den code verändern?

Private Sub UserForm_Activate()
Sheets("SCA_R11_L1").Activate
    Dim byt_Index As Byte
    Label126.Caption = Date
    Label127.Caption = Format(Time, "hh:mm")
    Label128.Caption = Worksheets("System").Range("C2").Value
    Label129.Caption = Application.UserName
    
    Frame2.Caption = "Programm 1" & "_" & Range("E1").Value
    Frame3.Caption = "Programm 2" & "_" & Range("AM1").Value
    Frame4.Caption = "Programm 3" & "_" & Range("BU1").Value
    Frame5.Caption = "Programm 4" & "_" & Range("DC1").Value
    Frame6.Caption = "Programm 5" & "_" & Range("EK1").Value
    Frame7.Caption = "Programm 6" & "_" & Range("FS1").Value
    
    TextBox1.Visible = False
    TextBox2.Visible = True
    TextBox3.Visible = False
    TextBox4.Visible = False
    TextBox209.Visible = False
    Label125.Visible = False
    CommandButton3.Visible = False
    CommandButton4.Visible = False
       With Sheets("SCA_R11_L1")
        lng_letzte_Zeile = .Cells(65536, 1).End(xlUp).Row
        For byt_Index = 1 To 208
            Controls("TextBox" & CStr(byt_Index)).Value = .Cells(lng_letzte_Zeile, byt_Index)
            Controls("TextBox" & CStr(byt_Index)).Enabled = False
        Next
    End With
     End Sub







https://www.herber.de/bbs/user/10884.xls


für eure hilfe wäre ich sehr dankbar.


gruß
erich
  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Annett
Geschrieben am: 14.09.2004 19:32:41

Hallo Erich,

ich habe mir den Code nicht angesehen aber realisiere es in folgender Art Range("A1").Text.

Gruß Annett


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Erich
Geschrieben am: 14.09.2004 19:38:28

Hallo annett,

biite schau doch bitte den code an, ich lese in meine Userform 208 Textboxen auf einmal ein.

kannst du mir weiterhelfen?

gruß

erich


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Annett
Geschrieben am: 14.09.2004 19:42:20

Hallo Erich,

soviel wie Du hier fragst habe ich vermutewt das Du die Stelle findest. Falls die 208 alle Uhrzeiten sind, aber das ist eigentlich auch egal.

.Cells(lng_letzte_Zeile, byt_Index).Text

Gruß Annett


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Erich
Geschrieben am: 14.09.2004 19:51:21

Hallo Annett,

danke für deine antwort, aber es funktioniert nicht in meiner textbox2 wird weiterhin andere zahlen angezeit.

kannst du mir nochmal helfen?

gruß
erich


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Annett
Geschrieben am: 14.09.2004 20:00:50

Hallo Erich,

es gibt nur eine Uhrzeit. Ich konnte nur die Textbox2 nicht finden, dafür ist mir meine Zeit zu Schade.

Gruß Annett


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Nepumuk
Geschrieben am: 14.09.2004 19:54:35

Hallo Erich,
folgende Änderung im Makro des Spinbuttons:


Private Sub SpinButton1_Change()
    CommandButton1.Visible = False
    TextBox1.Visible = True
    TextBox2.Visible = True
    TextBox3.Visible = True
    TextBox4.Visible = True
    Label126.Visible = False
    Label127.Visible = False
    Label128.Visible = False
    Label129.Visible = False
    
    Dim iCounter As Integer
    TextBox1.Text = Cells(SpinButton1.Value, 1)
    TextBox2.Text = Format(CDate(Cells(SpinButton1.Value, 2)), "hh:mm")
   For iCounter = 3 To 209
      Controls("TextBox" & iCounter).Text = _
         Cells(SpinButton1.Value, iCounter)
   Next iCounter
End Sub


Gruß
Nepumuk
P.S. Du solltest den Max-Wert des Buttons auf die Anzahl der benutzten Zeilen begrenzen.


  


Betrifft: AW: Uhrzeit aus Tabelle in UF Textbox von: Erich
Geschrieben am: 14.09.2004 20:02:58

Hallo Nepumuk,

Danke für deine Hilfe,Danke
Danke auch an Annett, für ihre hilfe.

gruß
erich


 

Beiträge aus den Excel-Beispielen zum Thema "Uhrzeit aus Tabelle in UF Textbox"