Mahlzeit,
hier mal der bisherige Quellcode ist nix wildes halt nur eine kleine vereinfachung.
Option Explicit
Sub Daten()
Dim Zeile As Integer, Betrag As Double, LfdNr As Double, Saldo As Double
ThisWorkbook.Sheets(2).Cells(1, 1) = "Werte"
ThisWorkbook.Sheets(2).Cells(4, 1) = "LfdNr"
ThisWorkbook.Sheets(2).Cells(4, 2) = "Abteilung"
ThisWorkbook.Sheets(2).Cells(4, 3) = "Maschine/ Standort"
ThisWorkbook.Sheets(2).Cells(4, 4) = "LAeq"
ThisWorkbook.Sheets(2).Cells(4, 5) = "LCpeak"
Zeile = 4
Do
UserForm1.Show
ThisWorkbook.Sheets(2).Cells(Zeile, 1) = UserForm1.TextBox1.Text
ThisWorkbook.Sheets(2).Cells(Zeile, 2) = UserForm1.TextBox2.Text
ThisWorkbook.Sheets(2).Cells(Zeile, 3) = UserForm1.TextBox3.Text
ThisWorkbook.Sheets(2).Cells(Zeile, 4) = ThisWorkbook.Sheets(1).Cells(6, 3)
ThisWorkbook.Sheets(2).Cells(Zeile, 5) = ThisWorkbook.Sheets(1).Cells(8, 3)
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
ThisWorkbook.Sheets(1).Cells(6, 3) = ""
ThisWorkbook.Sheets(1).Cells(8, 3) = ""
Loop
End Sub
und bisher fuktioniert das ganze nicht so richtig.
Timmsen schrieb am 02.04.2008 12:46:21:
Hallo Holger,
danke für deine schnelle Antwort.
Muss aber leider sagen das ich mit nicht ganz zurecht komme.
Ggf. habe ich vergessen zu sagen das sich der ganze Quellcode in VBA befindet.
Es gibt auch keine Userform sondern nur die Felder aus der EIngabemaske in Excel.
Was Wohl am Sinnvollsten ist, ist eine Do Loop schleife mit einer If abfrage denke ich.
Ich weis nur nicht so ganz wie ich das verschateln muss damit es einwandfrei und bis unendlich funktioniert.
Gruß Timme
Holger schrieb am 02.04.2008 11:58:36:
Hallo Timmsen,
suche vor dem Einfügen die nächste freie Zeile, z.B. mit
nfz = Range("A65336").End(xlUp).Row+1
Das setzt allerdings voraus, dass in Spalte A überall etwas steht. Ansonsten kannst du auch z.B. mit
Set UR = ActiveSheet.UsedRange
nfz = UR.Rows.Count+1
arbeiten.
Gruß
Holger
Timmsen schrieb am 02.04.2008 07:09:26:
Mahlzeit alle da draußen,
ich habe folgendendes Problem und hoffe mir kann jemand helfen.
In Excel habe ich ein formular gebastelt mit verschiedenen Berechnungen. Das Formular dient als Vorlage und wird zwischendurch mit Daten gefüllt und dann als PDF gedruckt. und zusätzlich als xls Dokument abgespreichert. Nun habe ich einen Speichern und Speichern unter Button eingebaut und wollte gleichzeitig beim Klick auf speichern das, das Formular bestimmte Daten in ein Tabellenblatt ablegt und das fortlaufend mit jeder eingabe. Es soll quasi eine Datenbank entstehen mit einem Inhaltsverzeichnis über alle je getätigten eingaben über das Formular.
Die ausgabe der Daten in das andere Tabellenblatt über VBA bekomme ich hin. Das Problem ist jetzt nur der Laufindex das er immer wieder eine Zeile weiter geht und das ganze neu einträgt und nicht die alten einträge überschreibt. Die Datenbank wo die Daten rein geschrieben werden sollen kann auch ausgelagert werden und muss nicht direkt in dem gleichen Dokument sein wichtig ist nur das sie vorhanden ist.
Hoffe ich konnte mein Problem geeignet beschreiben und mir kann jemand helfen.
Danke schon im Voraus
gruß Timmsen. |