Spalte für Spalte und Zeile für Zeile
29.10.2013 10:29:19
Katrin
ich hoffe ihr könnt mir helfen! Ich habe 2 Dateien: In einer Tabelle soll in jeder 2. Spalte Daten aus der anderen Tabelle als Wert eingefügt werden. Die tabellen sind identisch aufgebaut. Das Problem ist, dass er "s" auch erhöhen soll und das funktioniert nicht! :( Und ich weiß nicht, wo ich s= s+1 richtig hinsetzen muss, damit er auch die Spaltenanzahl erhöht! So sieht aktuell mein Code aus:
Sub LeereZellenÜberspringenUndInhalteEinfügen()
Dim zeil, spalt As Integer
Dim s, s2, b, c, z, z2 As Integer
Dim sheetabweich, sheetneu As Worksheet
Set sheetabweich = Workbooks("Abweichungen.xlsm").Sheets("NSD")
Set sheetneu = Workbooks("Planung NSD laufend.xls").Sheets("Liquiditätsplan") _
_
sheetabweich.Activate
zeil = ActiveSheet.UsedRange.Rows.Count
spalt = ActiveSheet.UsedRange.Columns.Count
For z = 5 To 111
For s = 3 To spalt Step 2
If IsEmpty(Range(Cells(z, s), Cells(z, s)).Value) = True Then
For z2 = 5 + c To 10
c = c + 1
For s2 = 16 + b To 27
b = b + 1
'zeil2 = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile
'spalt2 = ActiveSheet.UsedRange.Columns.Count 'letzte ausgefüllte Spalte
sheetneu.Activate
Cells(z2, s2).Select
Selection.Copy
sheetabweich.Activate
Range(Cells(z, s), Cells(z, s)).Select
Selection.PasteSpecial Paste:=xlPasteValues
'GoTo weiter
s = s + 1
Next s2
weiter:
Next z2
End If
Next s
Next z
End Sub
Anzeige