Datenübergabe
21.06.2006 23:09:15
Gumm
hab ein probelem beim kopieren von daten aus einer tabelle in eine andere.
hier mal der code
Option Explicit
Sub Datenuebertragen()
If Range("B14") > 0 Then
Range("B14:F14").Select
Selection.Copy
Sheets("Auswertung").Select
Range("B14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If Range("B15") > 0 Then
Range("B15:F15").Select
Selection.Copy
Sheets("Auswertung").Select
Range("B15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
das programm soll schaun ob in tabelle Fahrerliste k1 in spalte b zahlen eingetragen sind um diese dann an auswertung weiterzugeben.
so wie der code im moment ist gibt er mir aber nur sdie erste zeile weiter, auch wenn in den nachfolgenden zeilen unter "B" auch werte stehen.
für hilfe wäre ich dankbar.
mfg dirk