von Seewolf » 24.02.2022, 20:21
Hallo Community
Danke Chris!
Hier die 4 Makro's für rechts/links/hoch/runter
In jedem Makro steht in der dritten Zeile Schrittweite = 10
Nach Wunsch anzupassen in allen 4 Makro's
Ob das ganze nutzbar ist ,solltet Ihr entscheiden/ausprobieren!
Mir hat es auf jedenfall Spass gemacht!
Gruß euer Seewolf
Wurde korrigiert,nun ist es besser zu hören!
Sub Zeilen_Hoch()
Dim AltZeile As Long, NeuZeile As Long
Dim Schrittweite As Integer
Schrittweite = 10
AltZeile = ActiveCell.Row
If ActiveCell.Row < Schrittweite + 1 Then End
Cells(ActiveCell.Row - Schrittweite, ActiveCell.Column).Activate
NeuZeile = ActiveCell.Row
Sprachausgabe ("Von Zeile")
Sprachausgabe (AltZeile)
Sprachausgabe ("nach Zeile")
Sprachausgabe (NeuZeile)
End Sub
Sub Zeilen_Runter()
Dim AltZeile As Long, NeuZeile As Long
Dim Schrittweite As Integer
Schrittweite = 10
AltZeile = ActiveCell.Row
Cells(ActiveCell.Row + Schrittweite, ActiveCell.Column).Activate
NeuZeile = ActiveCell.Row
Sprachausgabe ("Von Zeile")
Sprachausgabe (AltZeile)
Sprachausgabe ("nach Zeile")
Sprachausgabe (NeuZeile)
End Sub
Sub Spalten_Links()
Dim AktiveSpalte As String, NAktiveSpalte As String
Dim Schrittweite As Integer, Buchstabe_Index As Integer
Schrittweite = 10
AktiveSpalte = Mid(ActiveCell.Address(), 2, InStrRev(ActiveCell.Address(), "$") - 2)
If ActiveCell.Column < Schrittweite + 1 Then End
Cells(ActiveCell.Row, ActiveCell.Column - Schrittweite).Activate
NAktiveSpalte = Mid(ActiveCell.Address(), 2, InStrRev(ActiveCell.Address(), "$") - 2)
Sprachausgabe ("Von Spalte")
For Buchstabe_Index = 1 To Len(AktiveSpalte)
Sprachausgabe (Mid(AktiveSpalte, Buchstabe_Index, 1))
Next Buchstabe_Index
Sprachausgabe ("nach Spalte")
For Buchstabe_Index = 1 To Len(NAktiveSpalte)
Sprachausgabe (Mid(NAktiveSpalte, Buchstabe_Index, 1))
Next Buchstabe_Index
End Sub
Sub Spalten_Rechts()
Dim AktiveSpalte As String, NAktiveSpalte As String
Dim Schrittweite As Integer, Buchstabe_Index As Integer
Schrittweite = 10
AktiveSpalte = Mid(ActiveCell.Address(), 2, InStrRev(ActiveCell.Address(), "$") - 2)
Cells(ActiveCell.Row, ActiveCell.Column + Schrittweite).Activate
NAktiveSpalte = Mid(ActiveCell.Address(), 2, InStrRev(ActiveCell.Address(), "$") - 2)
Sprachausgabe ("Von Spalte")
For Buchstabe_Index = 1 To Len(AktiveSpalte)
Sprachausgabe (Mid(AktiveSpalte, Buchstabe_Index, 1))
Next Buchstabe_Index
Sprachausgabe ("nach Spalte")
For Buchstabe_Index = 1 To Len(NAktiveSpalte)
Sprachausgabe (Mid(NAktiveSpalte, Buchstabe_Index, 1))
Next Buchstabe_Index
End Sub
Public Function Sprachausgabe(strText)
Dim sabbeln As Object
Set sabbeln = CreateObject("SAPI.SpVoice")
sabbeln.Speak strText
Set sabbeln = Nothing
End Function
Vorschlag für Tastenkürzel
Up =Strg + u
Down=Strg + d
Left =Strg + l
Right=Strg + r