Excelzellen per Schleife nacheinander auslesen, in Label anzeigen, durch Buttonclick in andere Zelle schreiben und weiterlesen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von FloFuchs.
-
-
-
-
Die Lösung steht doch da? Du musst sie doch nur umsetzen?
Wenn du das garnich hin bekommst, solltest du vielleicht noch mal ein Buch lesen?!
-
-
was genau is denn an den ganzen aufgezeigten Lösungen nicht zu verstehen?
Die schnellste und einfachste Lösung direkt in Excel über VBA willst du nicht. Wäre super um einfach ma die Grundzüge nachzuvollziehen!!!
Die nächst einfache Lösung in VB2010 willste auch nich...
Die von Dir gewünschte Lösung STEHT da... was willst du noch? -
VB.NET-Quellcode
- Public Class Form3
- Dim xlApp As New Excel.Application
- Dim Mappe As Excel.Workbook = xlApp.Workbooks.Open("C:\MMPI\" & Form1.TextBox2.Text & "_" & Form1.TextBox1.Text & "\MMPI" & "_" & Form1.TextBox2.Text & "_" & Form1.TextBox1.Text & ".xls")
- Dim Tab1 As Excel.Worksheet = Mappe.Sheets("Tabelle1")
- Dim rg As Excel.Range
- Dim i As Integer = 2
- Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Button1.Hide()
- Button2.Hide()
- Label2.Text = "Klicken Sie auf Start um zu beginnen."
- xlApp.Visible = True
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Button3.Hide()
- Button1.Show()
- Button2.Show()
- rg = xlApp.Range("A2:A222")
- Label2.Text = Tab1.Cells(i, 1).Value.ToString
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If i >= 221 Then
- rg.Cells(1, i).offsett(1, 0) = 1
- i = i + 1
- Label2.Text = rg.Value
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If i >= 221 Then
- rg.Cells(1, i).offsett(1, 0) = 0
- i = i + 1
- Label2.Text = rg.Value
- End If
- End Sub
- End Class
Ich habe jetzt nochmal alles gelöscht und versucht den Code so sauber wie möglich hinzuschreiben.
Was funktioniert? Bei Buttonclick zeigt er den Wert von A2 im Label an. Danach rührt sicher aber nichts mehr. Weder der Ja(btn1) noch der Nein(btn2) Knopf funktionieren.
Wenn ich das als Laie richtig verstehe, muss in die Buttonclick Sub des Startknopfs(btn3) noch eine Schleife damit er mit der eigentlichen Schleife beginnt, richtig?
Was mache ich verkehrt?Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DEFCON1“ ()
-
-
Vielleicht wärst Du so freundlich und würdest mir den entscheidenden Tipp einfach geben, dann könnte ich mehr Zeit mit der Huldigung deiner Person widmen.
Ich habe die Range jetzt, wie von dir beschrieben, geändert. Er zeigt in Label2 zwar den Wert der Zelle A2 an, aber danach tut sich leider nichts mehr. -
-
Gott (FloFuchs :D), bin ich ein Trottel..
Jetzt funktionierts natürlich auch.. oh man.. Kopf->Tisch!
Jetzt gibt es nur noch die winzige Kleinigkeit, dass sich der Wert des Labels nicht ändert. Im Label soll ja A2 stehen, nach einem Click A3, erneuter Click A4 usw.
Ich als Laie sage: Da fehlt ne Schleife in der Startknopf(btn3) Anweisung. Kannst Du mir dazu noch einen Denkanstoß geben? -
-
-
-
-
-
-
-
Ähnliche Themen
-
bigcompfan - - Sonstige Problemstellungen
-
Techniker - - Sonstige Problemstellungen
-
2 Benutzer haben hier geschrieben
- Gast (36)
- Lightsource (2)