Macr variabler gestalten
04.07.2015 12:23:26
Thomas
ich habe mit hilfe von WHO ein Macro um eine Tabelle neu zuordnen.
Leider ist die noch ein wenig zu starr. Es bestimmt mit den zeilen Range("b4:E" & lz).Copy Range("b" & lz_einf) die Bereiche welche geordnet werden sollen.
Da sich bei mir aber die Spaltenanzahl ständig verändert wäre es toll wenn jemand das Macro so gestalten könnte das die Bereiche anhand der Begriffe in der Überschrift erkannt wird. Z.B.
1. Bereich ist Datum:Artikel
2. Bereich ist von name2 bis eine Spalte vor Name3
3. Bereich ist von name3 bis eine Spalte vor Name4
4. Bereich ist von name4 bis zur letzten gefüllten Spalte in der Überschrift.
Kann sich dies mal jemand anschauen ob es möglich ist und mir dies dann umschreiben?
vielen dank schon mal für euer interesse
liebe grüsse thomas
Die Datei https://www.herber.de/bbs/user/98632.xlsm wurde aus Datenschutzgründen gelöscht
Sub test_ordnen_modul_13() lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row ' 'letzte Zeile suchen in Spalte f lz = Cells(Rows.Count, "F").End(xlUp).Row lz_einf = Cells(Rows.Count, "b").End(xlUp).Row + 1 ' letzte gefüllte zeile in Spalte b 'A:C kopieren,Bereich verschieben Range("b4:E" & lz).Copy Range("b" & lz_einf) Range("k4:o" & lz).Cut Range("F" & lz_einf) 'letzte Zeile neu setzen lz_einf = Cells(Rows.Count, "b").End(xlUp).Row + 1 Range("b4:E" & lz).Copy Range("b" & lz_einf) Range("p4:t" & lz).Cut Range("F" & lz_einf) ' letzten bereich an spalte setzen 'Range("C2").CurrentRegion.Interior.ColorIndex = xlNone End Sub