Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Befehl zur Datenbank Erstellung

Forumthread: Excel Befehl zur Datenbank Erstellung

Excel Befehl zur Datenbank Erstellung
18.01.2023 19:22:28
Arwed
Moin Moin,
ich möchte gerne aus einer Tabelle auslesen, ob ein Feld mit 1 oder 0 markiert ist.
Bei einer 1, soll in die erste Zelle der Spalte die Überschriften der Zellen eingefügt werden, die mit 1 markiert sind.
Mein Ansatz, den ich mir bisher zusammen gesucht haben sieht wie folgt aus:
Sub Aktualisieren()
Dim c As Range
With Sheets("Tabelle1")
For Each c In .Range("D2:F4")
If c.Value = "1" Then
Cells(c.Row, 3).Value = Cells(c.Row, 3).Value & "," & Cells(1, c.Columm).Value
End If
Next c
End With
End Sub
Ich würde mich über Hilfe eurerseits freuen.
(Aus Testzwecken habe ist der zu überprüfende Bereich nur von D2:F4 gewählt und wird später erweitert.)
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Befehl zur Datenbank Erstellung
18.01.2023 19:36:44
Yal
Hallo Arwed,
Cells(c.Row, 3).Value = Cells(c.Row, 3).Value & "," & Cells(1, c.Columm).Value
Damit wird in Spalte 3 der gerade betrachtete Zeile ("Cells (c.Row, 3)") an der eigenen Wert einen Komma und den Inhalt der Zelle im ersten Zeile der betrachteten Spalte ("Cells(1, C.Column)") hinzugefügt.
Du möchtest aber "die erste Zelle der Spalte die Überschriften der Zellen eingefügt werden", also
Cells(1, c.Columm).Value = Cells(1, c.Columm).Value & "," & ... Überschriften der Zellen
Was bedeutet in dem Fall "die Überschriften der Zellen" ?
VG
Yal
Anzeige
AW: Excel Befehl zur Datenbank Erstellung
18.01.2023 19:48:38
Arwed
"Damit wird in Spalte 3 der gerade betrachtete Zeile ("Cells (c.Row, 3)") an der eigenen Wert einen Komma und den Inhalt der Zelle im ersten Zeile der betrachteten Spalte ("Cells(1, C.Column)") hinzugefügt."
Genau das ist, was passieren soll.
Als Beispiel:
Zeile 2 gehört Thomas Test. Thomas Test hat in Spalte 4 und 5 eine "1" eingetragen und in Spalte 6 eine "0".
Dann sollte in Spalte 3 " "Zelle(1,4)","Zelle(1,5)" " stehen.
Analog:
In Zeile 3 steht eine "1" in Spalte 4 und 6 und in Spalte 5 steht eine "0". Dann soll in Spalte 3 folgendes stehen: " "Zelle(1,4)", "Zelle(1,6)" "
Ich hoffe das hilft zu spezifizieren, was ich erreichen möchte .)
Anzeige
AW: Excel Befehl zur Datenbank Erstellung
18.01.2023 20:05:22
Yal
Ach so: nicht der Inhalt einer Zelle, sondern deren Adresse, als Zeichenkette (en: String)
dann so:
Sub Aktualisieren()
Dim Z As Range 'Z wie Zelle
 
    For Each Z In Sheets("Tabelle1").Range("D2:F4")
        If Z.Value = "1" Then
            With Cells(Z.Row, 3)
                .Value = .Value & ",Zelle(1," & Z.Columm & ")"
            End With
        End If
    Next Z
End Sub
VG
Yal
Anzeige
AW: Excel Befehl zur Datenbank Erstellung
19.01.2023 07:31:54
Arwed
Danke dir für deine Antwort und Mühe!
Leider bekomme ich bei deinem Code noch eine Fehlermeldung, habe es aber noch geschafft meinen Code (durch neu eintippen (frag mich nicht wieso es nun klappt)) zum Laufen zu bekommen.
Mein Code sieht nun wie folgt aus (inklusive Löschen der alten Einträge, dass nich doppelt eingetragen wird):
Dim c, d As Range
With Sheets("Tabelle1")
For Each d In .Range("B2:B200")
d.Value = ""
Next d
For Each c In .Range("C2:Z200")
If c.Value = "1" Then
If .Cells(c.Row, 2) = "" Then
.Cells(c.Row, 2) = .Cells(1, c.Column)
Else
.Cells(c.Row, 2) = .Cells(c.Row, 2) & "," & .Cells(1, c.Column)
End If
End If
Next c
End With
Anzeige
AW: Excel Befehl zur Datenbank Erstellung
19.01.2023 11:02:06
Yal
Hallo Arwed,
es liegt an dem Punkt vor "Cells(.." also ".Cells(.."
Mit dem Punkt wird der Verknupfung zum "With" hergestellt.
Ohne wird "Cells(..)" auf das eigene Workshheet, Falls der Code in einem Worksheet-Module vorliegt, oder auf das aktive Worksheet, Falls der Code in einem allgemeine Module vorliegt.
VG
Yal
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige