Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellen markieren

Forumthread: zellen markieren

zellen markieren
01.08.2005 10:53:39
Gerald
hi leute,
wie kann ich feststellen wie viele Zellen markiert sind?
wie leg ich am besten eine schleife über alle zellen,
will zb in jede makierte zelle ein "a" dazuschreiben
lg
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen markieren
01.08.2005 10:57:12
Matthias5
Hallo Gerald,
das könntest du so machen:
Dim Zelle as Range
For each Zelle in Selection
Zelle.Value = Zelle.Value & "a"
next
Gruß,
Matthias
AW: zellen markieren
01.08.2005 11:35:35
Gerald
hi,
ich mach das grad so:
Dim MyString As String
Dim Start_Select As String
Dim End_Select As String
MyString = ActiveWindow.RangeSelection.Address
MyString = Replace(MyString, "$", "")
MyPos = InStr(1, MyString, ":", 1)
Start_Select = Left(MyString, MyPos - 1)
End_Select = Right(MyString, MyPos - 1)
MsgBox Start_Select
MsgBox End_Select
ich suche eine funktion substring(string, start, end)
will einen teilstring eines strings haben...
gibt es da was?
cu
Anzeige
Sieh dir mal die Funktion "MID" an! oT
01.08.2005 12:25:59
Matthias5
AW: Sieh dir mal die Funktion "MID" an! oT
01.08.2005 13:26:35
Gerald
jo, danke schon gefunden;-)
wie kann ich Änderungen für makierte zellen "für jedes sheet" im workbook machen...!?
und wie mach ich ein makro, dass wenn man zb in eine zelle "H" eingibt das automatisch in
"H1" ändert...ich wusst das schon mal, habs leider vergessen;-(
wo gib ich dann das makro rein, in "ThisWorkbook" ?
cu
Anzeige
Änderung in gesamter Mappe
01.08.2005 13:38:47
Matthias5
Hi,
so trägst du Änderungen in der gesamten Mappe ein:

Sub test()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Range("H1") = "Hallo"
Next
End Sub

Gruß,
Matthias
AW: zellen markieren
01.08.2005 11:04:42
Hajo_Zi
Hallo Gerald,

Sub Zelle()
MsgBox Selection.Count
Selection.Value = "A"
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
;

Beliebteste Forumthreads (12 Monate)

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