Guten Tag,
ich habe folgendes Problem und zwar habe ich eine Tabellenblatt(5) in das Daten eingespeist werden diese werden dort komprimiert und sollen von da aus in ein anderes Tabellenblatt (2) kopiert werden. in Tabellenblatt 2 sind schon Daten sprich die neuen Daten müssen angehangen werden.
Ich habe schon mal angefangen bekomme aber das exportieren nicht hin.
Private Sub cmdName_Click()
Dim lngzeile As Long
lngzeile = 1
Do
If Tabelle2.Cells(lngzeile, 1) = "" Then
Exit Do
Else
lngzeile = lngzeile + 1
End If
Loop
Tabelle2.Cells(lngzeile, 1) = Tabelle5.Cells(lngzeile, 1)
End Sub
Ich hab um die 14 Spalten kann aber stagnieren und Zeilen sind immer unterschiedlich.
bin für alle Vorschläge offen.
Danke schon mal. |