Webseiten zum Thema Select gesucht

Hallo Wissende,
ich würde gerne 1-3 Webseiten haben auf die ich Anfrager in einem viel kleineren beschaulicheren Excelforumchen verweisen könnte wenn sie da sowas wie den nachfolgenden Code zeigen und ich da noch ggfs. noch den Fehler suchen muß.
Von dem ganzen Select wird mir schwindlig :-))
Deshalb würde ich da sehr gerne antworten können, schau in die FAQ:4711, bereinige dementsprechend den Code und frage erneut mit dem anderen Code.
(wenn ich in meiner Antwort FAQ:4711 schreibe so wird daraus ein Link zu dieser FAQ wo dann halt die von mir hier gewünschten Weblinks stehen)
Nun bringt es kaum was in Suchmaschinen nach
Select
select vermeiden
o.ä. zu suchen, viel zu viele Treffer :-(
Bei online-excel von peter war ich und er hat auch was zu Select geschrieben aber das passt nicht.
Abgesehen davon daß damit viele derer die ich meine überfordert wären.
Jetzt nun meine Frage, kennt ihr Webseiten wo das sehr gut erläutert wird warum man Select nicht benutzen sollte?
Mir fällt jetzt beim Schreiben ein
Alzheimer läßt grüßen :-(, vielleicht hat ja Hans da irgendwo was auf dieser Webseite zum Thema. Das prüfe ich gleich, aber may be es gibt besser für Laien erklärte Seiten.
Danke
Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
hier der Code
Option Explicit


Sub Liste_aktualisieren()
Sheets("Hilfsblatt").Visible = True
Sheets("Klientenliste 2011").Unprotect Password:="Cma10"
Sheets("Hilfsblatt").Unprotect
Sheets("Total Klienten_Monat").Unprotect
Sheets("Klientenliste 2011").Select
Range("D3:D1000").Select
Selection.Copy
Range("D1").Select
Sheets("Hilfsblatt").Select
Columns("E:E").Select
ActiveSheet.Paste
Range("E1").Select
Application.CutCopyMode = False
Range("E1:E1000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("E2:E1000").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Sheets("Total Klienten_Monat").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B9").Select
Sheets("Hilfsblatt").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Columns("E:E").Select
Selection.ClearContents
Range("C1").Select
Columns("E:E").Select
Selection.ClearContents
Range("D1").Select
Sheets("Total Klienten_Monat").Select
Sheets("Klientenliste 2011").Protect Password:="Cma10"
Sheets("Hilfsblatt").Protect
Sheets("Total Klienten_Monat").Protect
Sheets("Hilfsblatt").Visible = False
Sheets("Klientenliste 2011").Activate
End Sub

Gruß
Reinhard

Sub Liste_aktualisieren() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet Set sh1 = Sheets("Hilfsblatt") Set sh2 = Sheets("Klientenliste 2011") Set sh3 = Sheets("Total Klienten_Monat") With sh1 sh2.Protect Password:="Cma10", UserInterfaceOnly:=True sh3.Protect , UserInterfaceOnly:=True sh3.Range("D3:D1000").Copy .Range("E1") .Range("E1:E1000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True .Range("E1:E1000").Sort Key1:=.Range("E2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal .Range("E1:E1000").Copy sh2.Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False .ShowAllData .Columns(5).Clear sh2.Activate End With End Sub

Beliebteste Forumthreads (12 Monate)

Webseiten zum Thema Select gesucht

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread