Veränderung von Spalten berücksichtigen
25.06.2013 09:21:58
Spalten
ich habe folgendes Problem. Ich habe ein kleines VBA geschrieben um 2 Zeilen zu Verketten. Es handelt sich in Spalte 6 und 5 um den Vor- und Nachnamen. Jetzt ist aber das Problem, dass sich die Spalten manchmal ändern als nicht fest sind.
Wie kann ich das umschreiben, dass er die Spaltenindizies in einer Vorababfrage bestimmen.
Mein derzeitiges Programm sieht so aus
Option Explicit
Sub Machs()
Application.ScreenUpdating = False
Dim WKA As Sheets
Dim WKS As Worksheet
Dim LZeile As Integer
Dim Zeile As Integer
Set WKA = Sheets(Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Sep", "Okt", "Nov", "Dez") _
_
)
For Each WKS In WKA
LZeile = WKS.Cells.SpecialCells(xlCellTypeLastCell).Row
For Zeile = LZeile To 1 Step -1
WKS.Cells(Zeile, 23) = WKS.Cells(Zeile, 6) & " " & WKS.Cells(Zeile, 5)
Next Zeile
Next
End Sub
Anzeige