Hallo zusammen.
Ich schreibe an einem Programm welches Betriebsdaten erfassen soll.
Dazu wird ein vom Programm eine Excel Tabelle geöffnet und Zellen der Spalte B in Textboxen dargestellt. Das funktioniert auch.
Jetzt möchte ich, wenn ein Button ( Auftrag vor) gedrückt wird, dass die nächsten 4 Zellen in den Textboxen angezeigt werden.
Wie mach ich das?
Für Hilfe wäre ich sehr dankbar.
Spoiler anzeigen
mfG Highblackbone
Label und Codetag angepasst. Langen Code in Spoiler verpackt. ~Thunderbolt
Ich schreibe an einem Programm welches Betriebsdaten erfassen soll.
Dazu wird ein vom Programm eine Excel Tabelle geöffnet und Zellen der Spalte B in Textboxen dargestellt. Das funktioniert auch.
Jetzt möchte ich, wenn ein Button ( Auftrag vor) gedrückt wird, dass die nächsten 4 Zellen in den Textboxen angezeigt werden.
Wie mach ich das?
Für Hilfe wäre ich sehr dankbar.
VB.NET-Quellcode
- Option Strict On
- Imports Microsoft.Office.Interop
- Public Class Form1
- Dim exApp As Excel.Application = New Excel.Application()
- Dim xls_Mappe As Excel.Workbook ' Excel Arbeitsmappe
- Dim xls_Blatt As Excel.Worksheet
- Dim Zeile As Integer
- Dim exwb As Excel.Workbook
- Dim exsh As Excel.Worksheet
- Dim exrng1 As Excel.Range
- Dim exrng2 As Excel.Range
- Dim exrng3 As Excel.Range
- Dim exrng4 As Excel.Range
- Dim exrng7 As Excel.Range
- Dim exrng8 As Excel.Range
- Dim xlObj As New Excel.Application
- Dim range As Excel.Range
- Dim Anwendung As Object
- Dim Workbook As Object
- Dim Excel As Object
- ' Dim LFlag As Boolean
- Dim txt As String
- Dim rng As Excel.Range
- 'Private MyLine As Integer = 1
- Dim MyExcel As New Excel.Application
- Dim DateTime As String = Now.ToString("dd-MM-yyyy HH,mm,ss")
- ' Dim Excel As New Microsoft.Office.Interop.Excel.Application
- Private MyLine As Integer = 4
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- End Sub
- Private Sub Auftragvor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Auftragvor.Click
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ListBox1.Visible = False
- ' Me.Label9.Text = Date.Now.ToShortTimeString()
- ' Me.Label10.Text = DateTime
- Timer1.Interval = 1000 'ms
- Timer1.Enabled = True
- TextBox9.BackColor = Color.DimGray
- xlObj.Visible = True
- ' Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\Users\Jörg\Documents\Mappe1.xls")
- ' Dim Tabelle As Excel.Worksheet = CType(Mappe.Sheets("Tabelle1"), Excel.Worksheet)
- With exApp
- .Visible = True
- exwb = .Workbooks.Open("C:\Users\Jörg\Documents\Mappe1.xls")
- exsh = CType(exwb.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
- exrng1 = exsh.Range("B6")
- exrng2 = exsh.Range("B7")
- exrng3 = exsh.Range("B8")
- exrng4 = exsh.Range("B9")
- exrng7 = exsh.Range("B4")
- exrng8 = exsh.Range("B3")
- TextBox1.Text = CStr(exrng1.Value)
- TextBox2.Text = CStr(exrng2.Value)
- TextBox3.Text = CStr(exrng3.Value)
- TextBox4.Text = CStr(exrng4.Value)
- TextBox7.Text = CStr(exrng7.Value)
- TextBox8.Text = CStr(exrng8.Value)
- 'TextBox3.Text = Tabelle.Cells(MyLine, 22).Value
- End With
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Select Case MessageBox.Show("Wirklich?", "Fensterinhalt", MessageBoxButtons.YesNo)
- Case Windows.Forms.DialogResult.Yes
- 'code für Ja
- Me.Close()
- Case Windows.Forms.DialogResult.No
- Exit Sub
- 'Code für Nein
- End Select
- End Sub
- Private Sub Rüsten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rüsten.Click
- Rüsten.Visible = False
- TextBox9.Text = "Rüsten"
- TextBox9.BackColor = Color.DimGray
- End Sub
- Private Sub Produktion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Produktion.Click
- ListBox1.Visible = False
- Produktion.Visible = False
- Rüsten.Visible = False
- TextBox9.Text = "Produktion"
- TextBox9.BackColor = Color.GreenYellow
- End Sub
- Private Sub Störung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Störung.Click
- ListBox1.Visible = True
- TextBox9.Text = "S.T.Ö.R.U.N.G"
- Produktion.Visible = True
- TextBox9.BackColor = Color.Red
- End Sub
- Private Sub Pause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pause.Click
- ListBox1.Visible = False
- TextBox9.Text = "P.A.U.S.E"
- Produktion.Visible = True
- TextBox9.BackColor = Color.DimGray
- End Sub
- Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
- Label9.Text = Format(Now, "dd.MMMM yyyy")
- Label10.Text = Format(Now, "H:mm:ss")
- End Sub
- End Class
mfG Highblackbone
Label und Codetag angepasst. Langen Code in Spoiler verpackt. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()