Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige