Hallo,
ich habe in einer Calc-Tabelle mehrere Spalten durch Anklicken der Spaltenköpfe markiert. Wie kann ich die Markierung umkehren? Oder im anderen Falle eine Zeilenmarkierung umkehren?
Vielen Dank.
Gruß,
Salomo
Hallo,
ich verstehe, Du hast 3 Zeilen markiert und willst diese nicht aber alle anderen markieren.
Das duerfte nicht gehen.
Ausserdem haettest Du dann 3 von den 36ooo ? Zeilen nicht markiert.
Gruss Helmut
ich habe in einer Calc-Tabelle mehrere Spalten durch Anklicken
der Spaltenköpfe markiert. Wie kann ich die Markierung
umkehren? Oder im anderen Falle eine Zeilenmarkierung
umkehren?
Hallo Salomo,
in Calc muß ich es erst noch ausprobieren, da weiß ich nie ob in Calc mein Excel-Vba-Code direkt läuft, nach Änderungen läuft oder ich kriegs halt nicht zu laufen.
Nachfolgender Code gehört in Excel in ein Tabellenblattmodul. Er startet automatisch wenn du eine oder mehrere Spalten markiert hast. Die Spalten müssen keinn zsammengehörenden Block bilden, mit gehaltener Strg-Taste kannste noch andere Spalten mit dazunehmen in die Markierung.
Gruß
Reinhard
Option Explicit
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim Auswahl, Merk As Range, rng As Range, Spa As Long
If Target.Count Mod Rows.Count 0 Then Exit Sub
Auswahl = MsgBox("Wollen Sie die Auswahl umdrehen?", vbDefaultButton1 + vbOKCancel, "Abfrage")
If Auswahl = vbOK Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Merk = Target
Range("A1").Select
For Spa = 1 To Columns.Count
If Intersect(Merk, Columns(Spa)) Is Nothing Then
If Not rng Is Nothing Then
Set rng = Union(rng, Columns(Spa))
Else
Set rng = Columns(Spa)
End If
End If
Next Spa
rng.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
[…] Du hast 3 Zeilen markiert und willst diese nicht
aber alle anderen markieren.
Genau das meinte ich.
Das duerfte nicht gehen.
Ausserdem haettest Du dann 3 von den 36ooo ? Zeilen nicht
markiert.
Habe verstanden.
Vielen Dank,
Salomo
ich habe in einer Calc-Tabelle mehrere Spalten durch Anklicken
der Spaltenköpfe markiert. Wie kann ich die Markierung
umkehren? Oder im anderen Falle eine Zeilenmarkierung
umkehren?
Hallo Salomo,
in dieser .ods
http://www.file-upload.net/download-8608819/Markieru…
ist eine Schaltfläche aus Ansicht—Symbolleisten—Formular-Steuerelemente.
Dieser Schaltfläche ist das nachstehende Makro zugeordnet:
Gruß
Reinhard
In einem Standardmodul:
Option Explicit
Option VBASupport 1
Sub Invertieren()
Dim Auswahl, Merk As Range, rng As Range, Spa As Long
If selection.Cells.Count Mod Rows.Count 0 Then Exit Sub
Auswahl = MsgBox("Wollen Sie die Auswahl umdrehen?", vbDefaultButton1 + vbOKCancel, "Abfrage")
If Auswahl = vbOK Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Merk = selection
Range("A1").Select
For Spa = 1 To Columns.Count
If Intersect(Merk, Columns(Spa)) Is Nothing Then
If Not rng Is Nothing Then
Set rng = Union(rng, Columns(Spa))
Else
Set rng = Columns(Spa)
End If
End If
Next Spa
rng.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub