Einzelne aus Liste

[Haupi0581]

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...

[WillWissen]

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

[Haupi0581]

Danke WillWissen,

ist es denn möglich das wenn man in der Spalte mir dem "X", das x wo anders setzt das vorhandene verschwindet???

[WillWissen]

Hi,

mit Formeln geht das nicht, eventuell mit einem Makro. Da müssen dir aber die VBA-Spezialisten helfen.

[Haupi0581]

Wo muß ich denn da meine Frage stellen, gibt es dafür ne eigens eingerichtet Sparte???

[WillWissen]

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.

[Kuwer]

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

[Haupi0581]

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...

[Kuwer]

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