schwer zu beschreiben
04.01.2004 10:29:26
jackoop
habe mal wieder ein prob
habe bei google bereits was gefunden. versteh es abba net
ich habe in einer tabelle 9 zeilen beschrieben (irrelevant was da drin steht)
die inhalte dieser 9 zeilen verändern sich abbe
jetzt soll exel mir die inhalte in eine neue tabelle kopieren (am besten anhnad einer formel)
es sind aber nicht immer alle 9 zeilen beschreiben, kann natürlich auch weniger sein
jetzt muss excel erkennen, wieviele beschreiben sind und muss sie in die andere tabellle kopieren
ABER NATÜRLICH UNTEREINANDER
er muss immer dort anfangen, wo er das letzte mal die aufzeichnugen beendet hat
ich hoffe, irgendjemand verteht hier mein prob
aber bitte nur einfache lösungen :)
danke
Sub Rechnung_eintragen()
Dim Lst As Object, Frm As Object
Dim z As Long
Set Lst = Sheets("Ausgangsbuch")
Set Frm = ActiveSheet
' nächste freie Zeile ermitteln
z = Lst.Range("A1").CurrentRegion.Rows.Count
z = z + 1
' Werte eintragen
Lst.Cells(z, 1).Value = Frm.Range("F11").Value 'ReNr
Lst.Cells(z, 2).Value = Frm.Range("G12").Value 'ReDat
Lst.Cells(z, 3).Value = Frm.Range("H43").Value 'Betrag
Lst.Cells(z, 4).Value = Frm.Range("A4").Value 'Kunde
Lst.Cells(z, 5).Value = Frm.Range("A8").Value 'Ort
End Sub