Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BereichVBA

BereichVBA
28.08.2003 17:49:49
PeterW
Hallo Excel-spezialisten,

Wie spricht man einen Bereich via VBA an?
Beispiel:
Zellen A1:C10

Mit Range("A1:C10") funktioniert das nicht.

Gruss Peter

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BereichVBA
28.08.2003 17:53:32
Hajo_Zi
Hallo Peter

was willst Du machen?? Folgendes geht bei mir fehlerfrei.


Sub Peter()
Range("A1:C10") = "Test"
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
AW: BereichVBA
28.08.2003 18:02:38
PeterW
Hallo Hajo,

Ich möchte das wenn, eine Zelle aus diesem Bereich Markiert wird
der Blattschutz deaktiviert wird, jedoch wenn z.B. eine oder
mehrere Zellen ausserhalb des Bereichs sind und die Delete
Taste gedrückt wird eine Fehlermeldung
(Msgbox "Ungültiger Bereich") kommt!

Mfg Peter
Anzeige
AW: BereichVBA
28.08.2003 18:05:30
Hajo_Zi
Hallo Peter

mal als Ansatz

' erstellt von Hajo.Ziplies@web.de 14.12.02
' http://home.media-n.de/ziplies/
' SCHRIFT
' für Hintergrund RaZelle.Interior.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:C20,D1:D7")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Kreuz entfernen
RaZelle.Borders(xlDiagonalDown).LineStyle = xlNone
RaZelle.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case RaZelle.Value
Case "1"
' mal eine andere Variante mit Kreuz und Farbe
RaZelle.Borders(xlDiagonalDown).LineStyle = xlContinuous
RaZelle.Borders(xlDiagonalDown).Weight = xlThick
RaZelle.Borders(xlDiagonalUp).LineStyle = xlContinuous
RaZelle.Borders(xlDiagonalUp).Weight = xlThick
RaZelle.Font.ColorIndex = 26
Case "2"
RaZelle.Font.ColorIndex = 24
Case "3"
RaZelle.Font.ColorIndex = 3
' usw.
Case Else
RaZelle.Font.ColorIndex = 0
End Select
End If
Next RaZelle
' ActiveSheet.Protect
Set RaBereich = Nothing
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: BereichVBA
28.08.2003 18:18:49
PeterW
Hallo Hajo,
Danke für das Makro!
Bin leider nicht so gut das ich es richtig anpassen kann.
Bekomme eine Meldung Variable nicht definiert und Target ist Markiert.

Wehre um deine Hilfe dankbar!!!
Mfg Peter
AW: BereichVBA
28.08.2003 18:23:33
Hajo_Zi
Hallo Peter

Du bist nicht der Peter der hier im Forum sonst unter PeterW schreibt??? Ich würde dann empfehlen Dein Kürzel um min. einen Buchstaben zu ergänzen.

Das Makro war in VBA unter der Tabelle und Target ist der ausgewählte Bereich. Da du bei der selection das Makro laufen lassn wolltest, wäre es schon richtig es müßte nur unter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: BereichVBA
28.08.2003 18:30:51
PeterW2
Danke Hajo!
jetzt geht es.
2. Werde meinen Namen ändern.
Gruss Peter
Danke für die Rückmeldung oT
28.08.2003 19:53:23
Hajo_Zi
OT kleine Bitte
28.08.2003 18:23:04
PeterW
Hallo Peter,

unter PeterW schreibe ich hier im Forum schon einige Zeit und suche unter diesem Namen auch nach Beiträgen, in denen vielleicht eine Nachfrage zu beantworten ist. Würde es dir etwas ausmachen, deinen Forumsnamen ein klein wenig zu erweitern? Wäre schön, wenn es möglich wäre. :-)

Gruß
Peter
AW: OT kleine Bitte
28.08.2003 18:31:57
PeterW2
Hallo Peter1,

OK. werde es beim nächsten Beitrag ändern!
Gruss Peter
Danke :-) oT
28.08.2003 18:34:16
PeterW

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige