AW: Bereich markieren per Makro
15.03.2005 13:45:03
Mathias
Hallo
in diesem Breich soll eine Prozedur ablaufen und die dauert leider etwas, was mir noch liedber währe, ist wenn die Zellen in den Spalten automatisch markiert werden, die einen Eintrag enthalten.auf TB2 ist die start Zelle A28 und F28 in TB3 ist die erste Zelle C17 und N17.
zur info ich bin so fit in VBA und rufe deinen Vorbestimmten Bereich zur Zeit so ab:
aber möglicherweise geht das ja auch besser
Gruss Mathias
Private Sub Msg1()
On Error GoTo errorhandler
Sheets("TB2").Select
Range("A28:A4000").Select
Call hk1_weg
Call Hochkomma_weg
errorhandler:
If Err.Number = 9 Then
MsgBox "Mindestens ein Tabellenblattname ist falsch!!" & vbLf & "Bitte Query überprüfen!!!"
Else
MsgBox ("Der Vorgang wurde erfogreich beendet." )
end if
End Sub
Private Sub hk1_weg()
Dim zelle As Range
For Each zelle In Selection
zelle = Right(zelle, Len(zelle) - (Left(zelle, 1) = "'") * 1)
Next zelle
End Sub
Private Sub Hochkomma_weg()
Dim zelle As Range
On Error Resume Next
For Each zelle In Selection
If zelle <> "" Then zelle = zelle * 1
If Left(zelle, 1) = "'" Then
zelle = Right(zelle, Len(zelle) - 1)
End If
Next zelle
End Sub