Makro dynamisch??
10.05.2007 09:22:58
Michael
Morgen Zusammen:-)
Ich benutze ab und zu mal folgendes Makro:
***********************************
Sub FormatBereinigen()
Dim arr As Variant
Dim rngB As Range
Dim area As Range
Set rngB = Range("A:A, D:D, G:G, N:N, P:P, Q:Q, S:S, T:T")
For Each area In rngB.Areas
arr = area
area.ClearContents
area.NumberFormat = "General"
area = arr
Erase arr
Next
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
End Sub
*********************************
In der 5ten Zeile werden ja feste Spalten für die Umwandlung des Spalteninhaltes in Zahlen vorgegeben. Ich möchte nun mal nachfragen, ob es irgendwie möglich ist, zb über eine Massage-/Abfragebox den User entscheiden zu lassen, welche Spalten er in Zahlen umgewandelt bekommen möchte??? Hintergrund ist der, das ich aus einer Datenbank immer unterschiedliche Ansichten exportieren muss und demzufolge sich die Spalten auch immer ändern, welche in Zahlen umgewandelt werden sollen.
Bin für jeden Hinweis dankbar.
Gruss..Michael