Anzeige
Archiv - Navigation
1452to1456
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

Macro teil variable machen

Macro teil variable machen
26.10.2015 11:08:36
Thomas
Hallo Excelfreunde
ich versuche gerade die constante SORTRANGEADDRESS variable zu machen.
Bestimmt ist dies ein Widerspruch aber der Macro teil ist nicht flexible.
Aus SORTRANGEADDRESS = "10:100" möchte ich irgendetwas mit
SORTRANGEADDRESS = "erstezeile:letzezeile" machen.
Die betroffenen Zeilennummern erstezeile und letzezeile habe ich schon
deklariert ( heist das so? ich finde die Zeilennummern schon).
Alternativ würde auch soetwas gehen Range(erstezeile:letzezeile)
Wie kann ich dies darstellen?
liebe grüsse thomas
Const SORTRANGEADDRESS = "10:100" ' von erste zeilbis letzte Zeile
Dim WKS As Worksheet
With ThisWorkbook
Set WKS = .Worksheets(strTabelle)
With WKS.Sort
.SortFields.Clear
.SortFields.Add Key:=WKS.Cells(lngUeberschriftRow, lngNameCol), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.SetRange Range(SORTRANGEADDRESS)
.Header = xlYes 'Überschriften JA (xlNo) /NEIN (xlGuess)
.Apply
End With

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro teil variable machen
26.10.2015 12:02:55
Luschi
Hallo Thomas,
mach es so:
Dim ersteZeile As Long
Dim letzeZeile Long
ersteZeile = 9
letzeZeile = 999
SORTRANGEADDRESS = ersteZeile & ":" & letzeZeile
Gruß von Luschi
aus klein-Paris

AW: Macro teil variable machen
26.10.2015 12:48:34
Thomas
Hallo Luschi,
vielen dank das Du Dir dies mal anschaust.
Leider bekomme ich den Fehler " Typen unverträglich"
Hast Du noch eine Idee?
liebe grüsse thomas

AW: Macro teil variable machen
26.10.2015 13:28:04
Luschi
Hallo Thomas,
da fehlte jeweisl ein 'tt in letzte Zeile:

Sub test123()
Dim ersteZeile As Long
Dim letzteZeile As Long
Dim SORTRANGEADDRESS As String
ersteZeile = 9
letzteZeile = 999
SORTRANGEADDRESS = ersteZeile & ":" & letzteZeile
MsgBox SORTRANGEADDRESS
End Sub
Gruß von Luschi
aus klein-Paris

Anzeige
besten dank an Luschi es passt super
26.10.2015 14:03:53
Thomas
Hallo Luschi,
hab recht vielen dank. Es funktioniert super.
liebe grüsse thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige