|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.03.2008 14:50:30 |
Eric |
|
|
|
11.03.2008 20:51:19 |
jh |
|
|
|
12.03.2008 09:53:14 |
Eric |
|
|
 Aw:Nur in eine Zelle ein Wert setzen können!! |
11.03.2008 20:56:16 |
Holger |
|
|
Von:
Holger |
Datum:
11.03.2008 20:56:16 |
Views:
1193 |
Rating:
|
Antwort:
|
Thema:
Aw:Nur in eine Zelle ein Wert setzen können!! |
Hallo Eric,
versuche einmal folgendes Makro im Code-Teil deiner Tabelle (nicht in einem Modul!). Du brauchst die Zelle nur anzuklicken und die bestehenden x im Bereich a7 bis a11 werden gelöscht und in der selektierten Zelle wird eines gesetzt. Wenn du allerdings mehrere Zellen markierst, wird in alle diese Zellen ein x gesetzt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a7:a11")) Is Nothing Then
Range("a7:a11").ClearContents
Range(Target.Address) = "x"
End If
End Sub
Viel Erfolg
Holger
Eric schrieb am 11.03.2008 14:50:30:
Hab folgendes Problem und zwar hab ich in Zellen A7 bis A11 nur die Möglichkeit ein x zusetzten oder die Zelle leer zu lassen. In der Zelle wo das x gesetzt wird aus der Reihe werden dann weitere werte für eine Berechnung verwendet.
Ich will nun ein Makro was quasi überprüft das nur in genau einer dieser A7 bis A11 Zellen ein x steht und die anderen leer sind sprich wenn ich in A7 ein x habe und dann aber in A8 das x setzte das dann automatisch das x in A7 gelöscht wird oder in den andern Zellen (A9:A11) und so weiter.
Hab mal mit folgendem angefangen aber funktioniert nicht so wie ich will
If Range("A7").Value = "x" Then
Range("A8:A11").ClearContents
ElseIf Range("A8").Value = "x" Then
Range("A7,A9:A11").ClearContents
......
..
.
End If |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.03.2008 14:50:30 |
Eric |
|
|
|
11.03.2008 20:51:19 |
jh |
|
|
|
12.03.2008 09:53:14 |
Eric |
|
|
Aw:Nur in eine Zelle ein Wert setzen können!! |
11.03.2008 20:56:16 |
Holger |
|
|