ich wollte mal fragen, wie kann ich in Excel über den Befehl
Const Spalten = "BFJNRVZ"
auch die Spalte "AD" ansprechen, also nicht die Spalte A und D sondern die Spalte AD nach Z
LG
Bernd
Dim maxZeile&, maxZeile2&, s&
'SpaltenStartbereiche B F J N R V Z'
Const Spalten = "BFJNRVZ"
Const überschriftenzeile = 13
For s = 1 To Len(Spalten)
maxZeile = BlattVon.Range(Mid(Spalten, s, 1) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > überschriftenzeile Then
maxZeile2 = BlattNach.Range(Mid(Spalten, s, 1) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(Mid(Spalten, s, 1) & überschriftenzeile + 1). _
Resize(maxZeile - überschriftenzeile, 3).Copy
BlattNach.Range(Mid(Spalten, s, 1) & maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next
und beim Kopieren der Daten, gibt es Tabellen, die über die Spalte Z hinausgehen und die sollen ja auch mit rangezogen werden.
Dim maxZeile&, maxZeile2&, s&
'SpaltenStartbereiche B F J N R V Z'
Const Spalten = "BFJNRVZ"
Const überschriftenzeile = 13
For s = 1 To Len(Spalten)
maxZeile = BlattVon.Range(Mid(Spalten, s, 1) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > überschriftenzeile Then
maxZeile2 = BlattNach.Range(Mid(Spalten, s, 1) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(Mid(Spalten, s, 1) & überschriftenzeile + 1). _
Resize(maxZeile - überschriftenzeile, 3).Copy
BlattNach.Range(Mid(Spalten, s, 1) & maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next
und beim Kopieren der Daten, gibt es Tabellen, die über die Spalte Z hinausgehen und die sollen ja auch mit rangezogen werden.
Sub b()
'Einbezogene Spalten: B F J N R V Z + AD (nach Z)
Const Spalten As String = "B,F,J,N,R,V,Z,AD" 'Spaltenbezeichnungen mit Komma trennen!
Const Überschriftenzeile As Long = 13
Dim maxZeile As Long
Dim maxZeile2 As Long
Dim s As Long
Dim arrSpalten
arrSpalten = Split(Spalten, ",")
For s = 1 To UBound(arrSpalten)
maxZeile = BlattVon.Range(arrSpalten(s) & BlattVon.Rows.Count).End(xlUp).Row
If maxZeile > Überschriftenzeile Then
maxZeile2 = BlattNach.Range(arrSpalten(s) & _
BlattNach.Rows.Count).End(xlUp).Row
BlattVon.Range(arrSpalten(s) & _
Überschriftenzeile + 1).Resize(maxZeile - Überschriftenzeile, 3).Copy
BlattNach.Range(arrSpalten(s) & _
maxZeile2 + 1).PasteSpecial xlPasteValues
End If
Next s
End Sub
Restlichen Code habe ich jetzt nicht getestet, mangels Kenntnis Deiner konkreten Verhältnisse.