Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalte für Spalte und Zeile für Zeile

Spalte für Spalte und Zeile für Zeile
29.10.2013 10:29:19
Katrin
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte für Spalte und Zeile für Zeile
29.10.2013 11:54:28
Katrin
Hallo, hat sich erledgt!!
Anzeige

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige