VBA-Problem
15.09.2004 21:28:26
HenryG
mit folgendem Code übertrage ich aus TabBl3 Daten in TabBl4:
Sub Datenuebernahme()
Sheets("Tabelle4").Select
Dim laR As Long
laR = Cells(Rows.Count, 7).End(xlUp).Row
Cells(laR + 1, 1).Value = Sheets("Tabelle3").Range("D6").Value
Cells(laR + 1, 2).Value = Sheets("Tabelle3").Range("D9").Value
Cells(laR + 1, 3).Value = Sheets("Tabelle3").Range("AC3").Value
Cells(laR + 1, 4).Value = Sheets("Tabelle3").Range("AC4").Value
Cells(laR + 1, 5).Value = Sheets("Tabelle3").Range("D12").Value
Cells(laR + 1, 6).Value = Sheets("Tabelle3").Range("H12").Value
Cells(laR + 1, 7).Value = Sheets("Tabelle3").Range("L12").Value
Cells(laR + 1, 8).Value = Sheets("Tabelle3").Range("D15").Value
Cells(laR + 1, 9).Value = Sheets("Tabelle3").Range("H15").Value
Cells(laR + 1, 10).Value = Sheets("Tabelle3").Range("L15").Value
End Sub
Nun möchte ich gerne erreichen, das nach erfolgter Datenübernahme,
die Eingabezellen im Blatt 3(außer AC3 & AC4) wieder leer sind.
Zusätzlich sollte in Y1 und AA1 die Zahl 1 erscheinen. Kann sich
jemand mein Problem annehmen?
Gruß
HenryG