Makro starten über Enter Taste ( EIngabetaste)
28.09.2016 14:19:40
Tobias
ich habe folgendes Problem.
Ich habe mir ein Makro geschrieben, der mir aus meiner Tabelle verschiedene Daten ausfiltert.
Jetzt soll dieser aber immer über die Enter, am besten Eingabetaste gestartet werden, da mir das klicken auf eine Schaltfläche zu aufwendig ist, bei der Menge, wie ich den Makro nutze.
ich dachte an eine OnKey Application
hiermal noch der Makro
Sub GVZ()
' GVZ Makro
Range("Tabelle612[Straße]").Select
Selection.Copy
Sheets("Datenbank").Select
Range("Tabelle6[Straße]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle1[[#Headers],[Straße]]").Select
Application.CutCopyMode = False
Range("Tabelle1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("Tabelle6[[#All],[Straße]]"), CopyToRange:=Range("I1:K1"), Unique _
:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Columns("I:K").Select
Selection.Copy
Columns("I:K").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suchfeld").Select
Columns("E:G").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("E:G").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Suchfeld").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suchfeld").Sort.SortFields.Add Key:=Range( _
"F2:F989"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Suchfeld").Sort
.SetRange Range("E1:G989")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Suchfeld").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suchfeld").Sort.SortFields.Add Key:=Range( _
"E2:E989"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Suchfeld").Sort
.SetRange Range("E1:G989")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("Tabelle612[Ort]").Select
Selection.Copy
Sheets("Ort").Select
Range("Tabelle17[Ort]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle15[[#Headers],[Ort]]").Select
Application.CutCopyMode = False
Range("Tabelle15[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("Tabelle17[[#All],[Ort]]"), CopyToRange:=Range("G1:H1"), Unique:= _
False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("G:H").Select
Selection.Copy
Sheets("Suchfeld").Select
Columns("H:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:I").EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
Columns("H:I").EntireColumn.AutoFit
Columns("H:I").Select
Selection.Font.Size = 16
Selection.Font.Size = 14
Columns("H:I").EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 1
Range("A2").Select
End Sub
Danke für die Hilfe