Nachtrag:
Ich habe jetzt mal beim durchsuchen des www einen Code gefunden der das lösen sollte. Leidert scheitert es schon beim
Umschreiben auf meine Bedürfnisse.
Kann mir wer helfen?
Meine Vorgaben sind:
Tabelle heisst: Formblatt.....die relevanten Zellen sind D4, D5, D6,D7, M2,O2,Q2
Tabelle 2 heisst: Bestickung
Der Code den ich gefunden habe ist folgender. W
'Code in einem alllgemeinen Modul der Datei.
Sub Eingabe_in_Liste_eintragen()
Dim wksEingabe As Worksheet
Dim wksListe As Worksheet
Dim lngZeile As Long, rngZelle As Range
Set wksEingabe = Worksheets("Eingabe") 'Eingabetabellenblatt
Set wksListe = Worksheets("Liste") 'Tabellenblatt in das die Daten geschrieben werden _
sollen
With wksListe
'nächste freie Zeile in Liste
Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If rngZelle Is Nothing Then
lngZeile = 1
Else
lngZeile = rngZelle.Row + 1
End If
.Cells(lngZeile, 1).Value = wksEingabe.Range("B3")
.Cells(lngZeile, 2).Value = wksEingabe.Range("B5")
.Cells(lngZeile, 3).Value = wksEingabe.Range("E6")
.Cells(lngZeile, 4).Value = wksEingabe.Range("B10")
.Cells(lngZeile, 5).Value = wksEingabe.Range("E10")
'usw.
End With
End Sub
|