Registriert seit: 09.05.2015
Version(en): 2010
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...
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 09.05.2015
Version(en): 2010
Danke
WillWissen,
ist es denn möglich das wenn man in der Spalte mir dem "X", das x wo anders setzt das vorhandene verschwindet???
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
mit Formeln geht das nicht, eventuell mit einem Makro. Da müssen dir aber die VBA-Spezialisten helfen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 09.05.2015
Version(en): 2010
Wo muß ich denn da meine Frage stellen, gibt es dafür ne eigens eingerichtet Sparte???
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• Haupi0581
Registriert seit: 09.05.2015
Version(en): 2010
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...
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• Haupi0581