Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markiertes Feld

Markiertes Feld
Ida
Hallo,
ich möchte in eine Variable folgendes schreiben.
Bedingung: es darf nur eine Zelle markiert sein.
Schreiben in Variable: aktuelle Spalte.
Danke für Hilfe
Ida

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

Betreff
Benutzer
Anzeige
AW: Markiertes Feld
15.11.2010 09:26:41
Rudi
Hallo, 
Sub tt()
Dim lngCol As Long
If Selection.Count = 1 Then lngCol = Selection.Column
End Sub

Gruß
Rudi
AW: Markiertes Feld
15.11.2010 09:43:42
Markus
Hallo Rudi,
besten Dank, aber ich hätte es gerne als Buchstabe gehabt.
z.B. Spalte = I.
Danke
Ida
Transe? ;-)
15.11.2010 09:53:25
Rudi
Hallo,
was willst du mit dem Buchstaben? 
Sub tt()
Dim strCol As String
If Selection.Count = 1 Then
strCol = Replace(Cells(1, Selection.Column).Address(0, 0), "1", "")
End If
End Sub

Gruß
Rudi
AW: Transe? ;-)
15.11.2010 10:39:13
Markus
Hallo Rudi,
ich weiss erstens nicht woher der "männliche" Markus kommt und ich bin auch keine Transe.
Aber zum wensentlichen.
Das mit den Buchstaben habe ich begriffen,
aber der Range will nicht!
Ich habe im Archiv verzweifelt nach einer Lösung für den Range gesucht,
aber leider nix gefunden.
Danke für Hilfe
Ida
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
Dim aktuelle_Col As Double
Dim aktuelle_Row As Double
If Selection.Count = 1 Then
aktuelle_Col = Selection.Column
aktuelle_Row = Selection.Row
aktuelle_Col = aktuelle_Col + 3
aktuelle_Row = aktuelle_Row + 2
' da steckt der Hund drinn!
Range("1:aktuelle_Col,1:aktuelle_Row").Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
End Sub

Anzeige
AW: Transe? ;-)
15.11.2010 10:47:56
Markus
Hallo Rudi,
ich weiss erstens nicht woher der "männliche" Markus kommt und ich bin auch keine Transe.
Aber zum wensentlichen.
Das mit den Buchstaben habe ich begriffen,
aber der Range will nicht!
Ich habe im Archiv verzweifelt nach einer Lösung für den Range gesucht,
aber leider nix gefunden.
Danke für Hilfe
Ida
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
Dim aktuelle_Col As Double
Dim aktuelle_Row As Double
If Selection.Count = 1 Then
aktuelle_Col = Selection.Column
aktuelle_Row = Selection.Row
aktuelle_Col = aktuelle_Col + 3
aktuelle_Row = aktuelle_Row + 2
' da steckt der Hund drinn!
Range("1:aktuelle_Col,1:aktuelle_Row").Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
End Sub

Anzeige
Hallo Ida, hallo Markus ;o)
15.11.2010 11:15:25
Matthias
Hallo
Du hast die Hochkomma falsch gesetzt!
Range("1:" & aktuelle_Col, "1:" & aktuelle_Row).Select
Gruß Matthias
AW: Transe? ;-)
15.11.2010 11:15:46
Rudi
Hallo Markus-Ida,
dafür brauchst du keine Variablen. 
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
If Selection.Count = 1 Then
Selection.Resize(3, 4).Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige