Datenbankeintrag in der Zeile fehlerhaft
12.06.2014 09:22:37
Sinayli57
habe folgendes Problem:
Aus einer Datei werden n-viele vertikale Spalten horizontal in eine Datenbank eingetragen. Dabei wird in die nächst leere Zeile ab der Spalte B eingefügt.
Das Problem ist, dass der Code die Formeln für die Durchnummerierung in der Spalte A der Datenbank als nicht leere Zeile sieht und in die erste Zeile hineinkopiert, wo in der entsprechenden Zelle in A keine Formel mehr hinterlegt ist.
Es soll also in der Spalte B nach der nächst leeren Zeile suchen, nicht in Spalte A.
Sub Datenbankeintrag()
Dim StartZeileQ As Long, EndZeileQ As Long, AnzZeilenZ As Long, StartSpalteQ As Long, _
EndSpalteQ As Long
Dim AktSpalteQ As Long
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Workbooks.Open Filename:="V:\VI\SSC_Europa\Allgemein\Preiskalkulationstool\ _
Kalkulationsdatenbank.xlsx"
Set wsQuelle = ThisWorkbook.Worksheets("Elo") 'da muss der richtige Name der Quelldatei rein.... _
Set wsZiel = Workbooks("Kalkulationsdatenbank.xlsx").Worksheets("Datenbank")
StartZeileQ = 100
EndZeileQ = 145
StartSpalteQ = 2
EndSpalteQ = 28
AnzZeilenZ = wsZiel.Range("A1").CurrentRegion.Rows.Count + 1
For AktSpalteQ = StartSpalteQ To EndSpalteQ
If wsQuelle.Cells(StartZeileQ, AktSpalteQ) "" Then
'wenn ungleich "" leer erste Zeile der akt Spalte, dann kopieren, transformieren
With wsQuelle
.Range(.Cells(StartZeileQ, AktSpalteQ), .Cells(EndZeileQ, AktSpalteQ)).Copy
wsZiel.Cells(AnzZeilenZ, 2).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:= _
False, Transpose:=True
AnzZeilenZ = AnzZeilenZ + 1
End With
End If
Next AktSpalteQ
ActiveWorkbook.Save
ActiveWindow.Close
End Sub