Hallo Leute,
ich möchte gerne wie im Bild zu sehen ist, die mit "X" jeweils markierte Adresse im Kopfbogen zu stehen haben.
Leider komme ich hier nicht alleine weiter, darum würde ich mich freuen wenn Ihr mir helfen könntet.
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!]
MfG, Haupi0581...
Hi,
meinst du so?
Tabelle8 | B | C | D | E | F |
| 2 | X | | Adresse | | Kopfbogen |
| 3 | | | Adr1 | | Adr8 |
| 4 | | | Adr2 | | |
| 5 | | | Adr3 | | |
| 6 | | | Adr4 | | |
| 7 | | | Adr5 | | |
| 8 | | | Adr6 | | |
| 9 | | | Adr7 | | |
| 10 | x | | Adr8 | | |
| 11 | | | Adr9 | | |
| 12 | | | Adr10 | | |
| 13 | | | Adr11 | | |
| Formeln der Tabelle |
| Zelle | Formel | | F3 | =VERWEIS("x";$B$3:$B$13;$D$3:$D$13) |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Danke
WillWissen,
ist es denn möglich das wenn man in der Spalte mir dem "X", das x wo anders setzt das vorhandene verschwindet???
Hi,
mit Formeln geht das nicht, eventuell mit einem Makro. Da müssen dir aber die VBA-Spezialisten helfen.
Wo muß ich denn da meine Frage stellen, gibt es dafür ne eigens eingerichtet Sparte???
Hi,
warte mal ab. Deine Frage hast du ja bereits im letzten Beitrag formuliert. Unsere Helfer lesen i.d.R alle neuen Beiträge - so werden sicherlich auch die VBA-Spezies darüber stolpern und, sofern es eine Möglichkeit gibt, die Lösung hierfür posten.
Hallo,
füge in das schon vorhandene VBA-Modul der entsprechenden Tabelle diesen Code ein:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereichMitX As Range
If Target.Cells.Count = 1 Then
Set rngBereichMitX = Range("B3:B13")
If Not Application.Intersect(Target, rngBereichMitX) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
rngBereichMitX.Value = ""
Target.Value = "x"
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub
Gruß Uwe
Geht es auch das man das "x" wie ein Hacken nur mit der Maus setzt. Ich hoffe ich werde mit meinen wünschen nicht zu unverschämt...
Mfg, Haupi0581...
Hallo,
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngBereichMitX As Range
Set rngBereichMitX = Range("B3:B13")
If Not Application.Intersect(Target, rngBereichMitX) Is Nothing Then
Cancel = True
rngBereichMitX.Value = ""
Target.Value = "x"
End If
End Sub
Gruß Uwe