Hallo,

ich bin relativ neu in diesem Thema, habe hier schon einige Sachen gefunden die mir bei anderen Problemen weiter geholfen haben, nun habe ich aber doch mal eine Frage.

Ich hatte mein Programm mit VBA fertig, aber dann festgestellt dass ich daraus keine *.exe Datei erzeugen kann.

Nun Programmiere ich das ganze in Visual Basic 2010 Express neu.


Folgendes Problem habe ich im Moment:

Ich möchte in der Exceldatei die ich über das Programm aufgerufen habe die letzte beschriebene Zeile auslesen, diese mit besteht aus einem Buchstaben und 4 Zahlen,
und dann in die nächste Zeile wieder den Buchstaben haben, aber die Zahl soll um 1 erhöht werden.
Also hätte ich gerne die Zeilenzahl der letzten Zeile in einer Variable, die ich dann wenn ich mehrere neue Nummern anlegen will in einer Schleife laufen lassen kann und immer hochzählen lasse.

Hat hier vielleicht jemand einen Lösungsvorschlag?

Besten Dank!
Gruß Martin

Die Zahl der belegten Zeilen habe ich glaube ich jetzt rausgefunden:

Zeilenanzahl = excel.Sheets(1).UsedRange.rows.count


Nur wenn eine leere Zeile dabei ist funktioniert das nicht, und auch nicht in einer bestimmten Spalte...

Guten Morgen

Danke erstmal für die zahlreichen Antworten, ich werde das jetzt mal ausprobieren und dann berichten.

Das hat funktioniert, jetzt bekomme ich die Zeilenzahl ausgegeben.

Diese will ich jetzt als variable x ablegen und mir dann aus der Spalte B in der Zeile x den Wert ohne die erste Stelle abholen.
Also wenn in der Zelle D3425 steht soll er mir 3425 ausgeben.

Ich hab das Problem mit etwas probieren jetzt gelöst. Aber trotzdem vielen Dank!

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Banlegen.Click
Dim Anzahl As String
Anzahl = Tanzahl.Text

If Anzahl = "" Then
MessageBox.Show("Bitte Anzahl eingeben", "Fehler", MessageBoxButtons.OK)
GoTo Line1000
End If

If Anzahl > 1 Then
Label4.Text = "Neue Nummern:"
Else
Label4.Text = "Neue Nummer:"
End If

Dim excel As Object = CreateObject("Excel.application")
Dim Zeilenanzahl As String = 0

excel.visible = False

excel.application.workbooks.open("\\Pfad..................\Mappe1.xls")

excel.application.sheets(3).Select() REM
Zeilenanzahl = excel.Sheets(3).Cells(excel.Rows.Count, 2).End(-4162).Row


Dim x As Integer

x = Zeilenanzahl

Dim neue As Integer
Dim i As Integer = 0
Dim letzte As String

letzte = excel.range("B" & x).value
letzte = Mid$(letzte, 2, 10)

neue = letzte + 1

Dim Benutzername As String = My.User.Name.ToString

Do Until i = Anzahl

x = x + 1

If i = 0 Then
TextBox3.Text = "Z" & neue
excel.range("B" & x).value = TextBox3.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()

ElseIf i = 1 Then
neue = neue + 1
TextBox4.Text = "Z" & neue
excel.range("B" & x).value = TextBox4.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()

ElseIf i = 2 Then
neue = neue + 1
TextBox5.Text = "Z" & neue
excel.range("B" & x).value = TextBox5.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()

ElseIf i = 3 Then
neue = neue + 1
TextBox6.Text = "Z" & neue
excel.range("B" & x).value = TextBox6.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()

ElseIf i = 4 Then
neue = neue + 1
TextBox7.Text = "Z" & neue
excel.range("B" & x).value = TextBox7.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()
ElseIf i = 5 Then
neue = neue + 1
TextBox8.Text = "Z" & neue
excel.range("B" & x).value = TextBox8.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()
ElseIf i = 6 Then
neue = neue + 1
TextBox9.Text = "Z" & neue
excel.range("B" & x).value = TextBox9.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()
ElseIf i = 7 Then
neue = neue + 1
TextBox10.Text = "Z" & neue
excel.range("B" & x).value = TextBox10.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()
ElseIf i = 8 Then
neue = neue + 1
TextBox11.Text = "Z" & neue
excel.range("B" & x).value = TextBox11.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()
ElseIf i = 9 Then
neue = neue + 1
TextBox12.Text = "Z" & neue
excel.range("B" & x).value = TextBox12.Text
excel.range("C" & x).value = TextBox1.Text
excel.range("D" & x).value = TextBox2.Text
excel.range("E" & x).value = Benutzername
excel.range("F" & x).value = System.DateTime.Now.ToString()

End If

i = i + 1

Loop

For Each w In excel.Application.Workbooks
w.Save()
Next w
excel.application.workbooks.Close()

Line1000:

End Sub

End Class

Problem ist jetzt noch, im Moment speichert das ganze automatisch nach dem anlegen der neuen Nummern.

Überlege die ganze Zeit wie man das elegant mit einem Abbrechen Button abbrechen könnte, und mit einem Speichern/Schließen Butten beenden und speichern kann..