Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehere Text Werte aus Spalte A in Blatt B in eine Zelle

Mehere Text Werte aus Spalte A in Blatt B in eine Zelle
13.10.2023 19:52:23
Dima
Hallo,

ich suche eine Formel für folgendes Problem:

Ich habe zwei Tabelleblätter. Im zweiten Tabellenblatt habe ich zwei Spalten:
Spalte A und Spalte B
In Spalte A stehe lauter eindeutige Textwerte: Apfe, Bananen, Kiwi, Gurke..
In Spalte B Zahlen wie: 1, 3 , „“, „“,…sprich es kann auch leer sein.
Nun möchte ich alle Werte aus Spalte A wo in Spalte B leer sind in eine Zelle mit Umbruch in Tabellenblatt 1 übertragen. Sprich am Ende habe ich im Tabellenblatt 1 eine Zelle mit dem Inhalt:
Kiwi
Gurke
Da im Beispiel nur Kiwi und Gurke leer sind.
Bekomme das mit meinen Kenntnissen leider so nicht hin.

Vielen Dann und Grüße
Dima

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehere Text Werte aus Spalte A in Blatt B in eine Zelle
13.10.2023 22:20:25
Piet
Hallo

mit diesem kleinen Code bekommst du das Ergebnis per MsgBox und in Tabelle1 angezeigt.
Den Code in ein normales Modul kopieren und mit CommandButton oder F5 starten.
Wenn deine Tabellen anders als "Tabelle1" und Tabelle2 lauten must du das im Code ändern.

mfg Piet

  • Sub Leerzellen_anzeigen()
    Dim AC As Range, lz1 As Long
    Dim Txt As String, n As Integer
    Worksheets("Tabelle2").Select

    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
    For Each AC In Range("B2:B" & lz1)
    If AC.Cells(1, 0) > "" Then
    If AC.Value = Empty Then Txt = _
    Txt & ", " & AC.Cells(1, 0)
    End If
    Next AC

    MsgBox Trim(Mid(Txt, 3))
    Worksheets("Tabelle1").Range("A1") = Txt
    End Sub
    • Anzeige

    Links zu Excel-Dialogen

    CommandButton Frame

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige