Clever-Excel-Forum

Seiten: 1 2 3 4

Hallo
Habe in einer Tabelle mehre Dropdowns in Spalte b1-b7 in denen definiert ist das ein x erscheint,
manchmal ist es nötig das alle x erscheinen. Möchte nun dass mit einem weiteren Dropdown
egal in welcher Zelle in dem auch ein x erscheint, alle in b1-b7 automatisch erscheinen.
Gruss hagi

Hi,

(14.06.2015, 08:55)hagi6312 schrieb: [ -> ]Habe in einer Tabelle mehre Dropdowns in Spalte b1-b7 in denen definiert ist das ein x erscheint,
manchmal ist es nötig das alle x erscheinen. Möchte nun dass mit einem weiteren Dropdown
egal in welcher Zelle in dem auch ein x erscheint, alle in b1-b7 automatisch erscheinen.

wer definiert wie, wann ein x erscheinen soll?
Wie "erscheinen" die x? Voodoo?
Es sind zu wenig Informationen.

Ich lese aus Deinem letzten Satz, daß überall in B1 - B7 ein x eingetragen werden soll, wenn in irgendeiner der Zellen B1 - B7 ein x eingetragen wird, ist das richtig?

Lade bitte Deine Tabelle hoch.
"Wenn dein Auto eine Reparatur benötigt, schickst du doch auch nicht ein Foto vom Auto an die Werkstatt." :)

Siehe die als Wichtige Themen markierten Forums-Beiträge!
Die farbigen Texte sind anklickbare Links:

Beitrag 1 WICHTIG: Arbeitsmappen im Forum zur Verfügung stellen
Beitrag 2 WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen

Hallo Rabe
im Anhang die Tabelle.
Deine Annahme ist richtig!

Hi,

(14.06.2015, 10:12)hagi6312 schrieb: [ -> ]Deine Annahme ist richtig!

soll es dann trotzdem eine Möglichkeit geben, in einzelne der Zellen E5-E8 "x"-e einzugeben? Also nicht alle zu markieren, sondern nur einzelne?

Dies Makro macht jetzt mal nur das, was Du gefragt hast, zusätzlich die Entfernung der x, wenn H7 geleert wird:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Wenn die Zieladresse nicht H7 ist, dann Makro verlassen If Target.Address <> "$H$7" Then Exit Sub If Target.Value = "x" Then Range("E5:E8").Value = "x" Else: Range("E5:E8").Value = "" End If End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15

PS: in Deiner Beispieldatei ist in H7 kein Dropdown.

Ich halte die Verwendung von Dropdowns für die Eingabe nur eines Buchstabens für übertrieben, das geht genauso schnell (sogar schneller) direkt mit der Tastatur.
Um das x wieder zu entfernen, mußt Du sowieso die "ENTF"-Taste drücken, Du mußt also jedesmal zwischen Maus und Tastatur wechseln, da kannst Du das x auch gleich per Tastatur eingeben.

Wenn Du es in der Datengültigkeit so machst: =$L$2:$L$3, statt dem x
mit: Zelle L2 leer und in L3 das x
dann kannst Du bei der Maus bleiben.

Die Abzüge in Spalte I würde ich so darstellen (analog in den anderen Zeilen):
="Gar nicht gerundet "&F4&" pt"
dann mußt Du den Abzugswert jeweils nur in Spalte F ändern und I ändert sich automatisch.

Hallo Rabe
Danke erstmals für Deine Hilfe.
Gemeint war H3!!
Das andere mit der Tastatur ist nicht so einfach auf einem Tablett
bei ca. 800 Zeilen. Das ganze ist ein Bewertungsblatt an Praktischen Prüfungen.
Die meisten Zellen sind gesperrt. so das niemand daran etwas ändern kann,
nur die Dropdowns sind können Angeklickt werden.
Gruss Hagi

Hi,

(14.06.2015, 11:03)hagi6312 schrieb: [ -> ]Gemeint war H3!!
Das andere mit der Tastatur ist nicht so einfach auf einem Tablett
bei ca. 800 Zeilen. Das ganze ist ein Bewertungsblatt an Praktischen Prüfungen.

ok, dann lösche das Dropdown aus H7 und ändere im Makro die H7 in H3, siehe hier:[attachment=2259]

vermutlich solltest Du noch E4 im Makro eintragen statt E5.
Die bedingte Formatierung muß noch angepasst werden für Spalte D, z.B. so für D4: =$D4<$C4 dann rot, dies kann dann auch in die anderen Zellen in D kopiert werden.[attachment=2258]

Hallo Rabe
Danke !!!
Genau das was ich mir Vorgestellt habe :18: .

Habe noch eine Frage???
Mit zweimal Klicken auf ein Dropdown kann man dieses nicht direkt in der Zelle
erscheinen lassen? :05:
Gruss Hagi

Hi,

(14.06.2015, 11:39)hagi6312 schrieb: [ -> ]Habe noch eine Frage???
Mit zweimal Klicken auf ein Dropdown kann man dieses nicht direkt in der Zelle erscheinen lassen? :05:

das geht auch mit einem Makro, ohne Dropdown.
Suche mal nach "Doppelklick in Zelle", da waren in letzter Zeit mehrere Themen hier im Forum.

z.B. so:

PHP-Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, Range("$H$3,$E$4:$E$8")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "x" Then
        Target.Value = ""
    Else: Target.Value = "x"
    End If
End Sub 

Die Dropdowns kannst Du dann löschen.

[attachment=2257]

Hallo Ralf
so weit alles klar ! Ausser dass ich mehrere Dropdowns in einem
Worksheet ansprechen möchte.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) ' gibt hier einen Fehler aus Mehrdeutiger Name: Worksheet_Change

    'Wenn die Zieladresse nicht H7 ist, dann Makro verlassen
    If Target.Address <> "$H$7" Then Exit Sub

    If Target.Value = "x" Then
        Range("E5:E8").Value = "x"
    Else: Range("E5:E8").Value = ""
    End If

End Sub

Bin glaube ich zu Blöde dazu!!
Wo hin damit, Option Explicit
Danke

Seiten: 1 2 3 4