Codeerweiterung
20.09.2004 01:16:49
HenryG
freundlicherweise hat Rainer(Ramses) mir unten aufgeführten Code,
meinen Bedürfnissen angepasst.
Nun ist mir noch zusätzlich der Gedanke gekommen, diese eingefügten
Informationen in entsprechenden Blättern aufzuteilen.
Obwohl ich im Grunde null Ahnung von VBA habe, möchte ich es gerne
auf diese Weise lösen.
Um eine Identifizierung der Zeilen zu ermöglichen, die in den entsprechenden
Blättern aufgeteilt werden sollen, habe ich über SVERWEIS Zahlen entsprechend
der Information über den Code in Spalte A mit einfügen lassen.
Jetzt wäre es schön, wenn man diesen Code um folgendes erweitern könnte:
Nach oder besser noch während die Informationen via Code übertragen werden,
soll die Zeile (C:G), wo eine 1 in Spalte A steht in Blatt (1), 2 Blatt (2) und
3 in Blatt (3) übertragen werden.
Könnte jemand von euch, diesen Code um diese Funktion erweitern?
Gruß
Henry
Sub Datenuebernahme()
Sheets("Test1").Select
Dim laR As Long
laR = Cells(Rows.Count, 7).End(xlUp).Row
Cells(laR + 1, 1).Value = Sheets("Tabelle3").Range("D6").Value
Sheets("Tabelle3").Range("D6").Value = ""
Cells(laR + 1, 2).Value = Sheets("Tabelle3").Range("D9").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
Sheets("Tabelle3").Range("D12").Value = ""
Cells(laR + 1, 6).Value = Sheets("Tabelle3").Range("H12").Value
Sheets("Tabelle3").Range("H12").Value = ""
Cells(laR + 1, 7).Value = Sheets("Tabelle3").Range("L12").Value
Sheets("Tabelle3").Range("L12").Value = ""
Cells(laR + 1, 8).Value = Sheets("Tabelle3").Range("D15").Value
Sheets("Tabelle3").Range("D15").Value = ""
Cells(laR + 1, 9).Value = Sheets("Tabelle3").Range("H15").Value
Sheets("Tabelle3").Range("H15").Value = ""
Cells(laR + 1, 10).Value = Sheets("Tabelle3").Range("L15").Value
Sheets("Tabelle3").Range("L15").Value = ""
Sheets("Tabelle3").Range("Y1").Value = 1
Sheets("Tabelle3").Range("AA1").Value = 1
End Sub