Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche VBA Lösung für das Markieren von Zellen nach bestimmten Kriterien

Suche VBA Lösung für das Markieren von Zellen nach bestimmten Kriterien
31.01.2020 11:19:52
Zellen
Guten Morgen:
Leider komme ich nicht weiter und auch Google findet nichts verwertbares.
Ich suche eine VBA Lösung.
Ich habe in Spalte A ca. 1000 Zeilen mit Text. es fängt immer mit dem Zellinhalt "Anfang" an. Darunter werden die Zelle mit Daten gefüllt. Wenn der Datensatz fertig ist kommt die letzte Zelle mit dem Inhalt "Ende" Und so geht es die ganze Spalte A weiter mit Anfang bis Ende. Die Datensätze zwischen dem Anfang und Ende sind unterschiedlich.
Ich möchte jetzt immer die Daten zwischen den Zellinhalten Anfang / Ende Kopieren und in einer neuen Tabelle Zeilenweise auflisten.
Kann mir bitte jemand dabei helfen?
Besten Dank im Voraus!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche VBA Lösung für das Markieren von Zellen nach bestimmten Kriterien
31.01.2020 11:37:57
Zellen
Hallo Thomas,
lade doch mal eine bsp. Datei hoch.
Hier sollte mann die Struktur und das Ergebnis erkennen.
Viele Grüße
Peter (hpo)
AW: Suche VBA Lösung für das Markieren von Zellen nach bestimmten Kriterien
31.01.2020 12:18:56
Zellen
Hallo Thomas,
probier das: 

Option Explicit
Public Sub Kopieren_Transponieren()
Dim Wert As String
Dim LeseZeile, SchreibZeile, Spalte As Integer
LeseZeile = 1
SchreibZeile = 1
Spalte = 1
Wert = "a"
While Wert  ""
Wert = Worksheets("Tabelle1").Cells(LeseZeile, 1).Value
Worksheets("Tabelle2").Cells(SchreibZeile, Spalte).Value = Wert
If Wert = "Ende" Then
Spalte = 0
SchreibZeile = SchreibZeile + 1
End If
LeseZeile = LeseZeile + 1
Spalte = Spalte + 1
Wend
End Sub

Anzeige
Daten definiert transponieren
31.01.2020 13:09:12
Beverly
Hi Thomas,
meinst du vielleicht so:
Sub Uebertragen()
Dim rngEnde As Range
Dim lngEnde As Long
Dim lngZeile As Long
Dim lngLetzte As Long
lngZeile = 1
lngLetzte = Columns(1).Find(What:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
For lngEnde = 1 To lngLetzte
If Cells(lngEnde, 1) = "Anfang" Then
Set rngEnde = Range(Cells(lngEnde + 1, 1), Cells(lngLetzte, 1)).Find("Ende", _
lookat:=xlWhole)
If Not rngEnde Is Nothing Then
Worksheets("Tabelle2").Cells(lngZeile, 1).Resize(1, rngEnde.Row - lngEnde - 1) _
= Application.Transpose(Range(Cells(lngEnde + 1, 1), _
Cells(rngEnde.Row - 1, 1)))
lngZeile = lngZeile + 1
lngEnde = rngEnde.Row
End If
End If
Next lngEnde
End Sub


Anzeige
AW: Daten definiert transponieren
31.01.2020 15:10:27
Thomas
Ganz herzlichen Dank und auch den anderen vielen Dank für die Bemühung. Ja das funktioniert und macht mir sehr grosse Freude. Ich werde dieses Skript jetzt noch ein bisschen auseinander nehmen weil ich jetzt davon etwas lernen muss. ich habe mir den Kopf ganz schön darüber zerbrochen.
Vielleicht kriege ich ja die Gelegenheit dazu um eine gute Flasche wein zu schicken?
AW: Daten definiert transponieren
31.01.2020 15:30:44
Beverly
Schön dass der Code zu deiner Zufriedenheit funktioniert. Falls du Fragen dazu hast - einfach fragen.
Und:
  • "Vielleicht kriege ich ja die Gelegenheit dazu um eine gute Flasche wein zu schicken?"

    • Meine Adresse findest du auf meiner Homepage... ;-)

    Anzeige
    AW: Daten definiert transponieren
    01.02.2020 17:42:23
    Thomas
    Ja danke... es verwirrt mich zwar etwas, meinst du "meiner Homepage" diese Herber.de? Oder übersehe ich irgend etwas?
    Besten Dank für die Auflösung des Rätsels :-)
    Freundliche Grüsse
    Thomas Wüthrich
    AW: Daten definiert transponieren
    01.02.2020 18:20:27
    Beverly
    Hi Thomas,
    meine Homepage heißt Beverly's Excel-Inn - der Link dazu ist in meiner Signatur zu finden.

    179 Forumthreads zu ähnlichen Themen

    Zellen farbig markieren
    chrisss

    Hallo,
    ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
    Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
    21.08.2008 13:20:00
    Thread-ID: 1003455
    8 Beiträge
    Anzeige
    Cursor soll in einer Zelle bleiben
    woschu1955

    Erstmal hallo zusammen!
    Ich habe eine Tabelle, in der nur in zwei Zellen Werte eingegeben werden. Nun springt der Cursor immer von einer Zelle in die andere. Das möchte ich aber verhindern, denn der Wert in der ersten Zelle bleibt konstant, während der in der zweiten Zelle immer wieder neu...
    05.11.2008 11:41:00
    Thread-ID: 1021819
    14 Beiträge
    Formel wenn dann zellvergleich Text
    Karel

    Hallo Forum,
    wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
    wenn C und D Leer dsnn A auch Leer
    Tabelle1

     ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
    28.11.2008 20:04:52
    Thread-ID: 1028782
    5 Beiträge
    Anzeige
    Zellen mit gleichem Inhalt farblich markieren
    TomTom

    Hi,
    ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
    Wie macht man denn das ?
    Danke
    Tom
    10.12.2008 09:02:54
    Thread-ID: 1031574
    5 Beiträge
    Zahl einer Zelle in den Wenn-Text
    die_nathan

    Schönen Nachmittag,
    Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
    falsches Beispiel:
    =wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
    Liebe Grüße
    11.12.2008 15:35:07
    Thread-ID: 1032078
    6 Beiträge
    trotz INDIREKT verknüpfte zellen farbig markieren
    merlin

    Hallo,
    gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
    https://www.herber.de/bbs/user/60118.xls
    Viele Grüße, vielen Dank.
    09.03.2009 11:14:37
    Thread-ID: 1058088
    3 Beiträge
    Wenn o dann Text in A1 rot
    Heinz A. Wankmüller
    Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
    Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
    16.04.2002 17:25:23
    Thread-ID: 113808
    2 Beiträge
    Zelle in Spalte farbig wenn Datei in Verzeichnis
    PointOfView

    Hallo,
    ich habe folgende Problemstellung:
    In einer Datei werden Artikel aufgelistet. Zu diesen Artikeln erstellen wir zur Zeit Bilder (Foto´s) die in einem Verzeichnis abgelegt werden. Ich habe bereits eine Makrofunktion erstellt, die, sobald ich in Spalte "C" auf einen Artikel komme (i...
    24.02.2010 08:00:51
    Thread-ID: 1140932
    8 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    7
    4
    13
    4
    14
    4
    5
    2
    1
    7
    8
    3
    1
    9
    9
    3
    7
    2
    4
    5
    4
    5
    3
    5
    10