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

Bereich zwischen zwei Namen markieren

Forumthread: Bereich zwischen zwei Namen markieren

Bereich zwischen zwei Namen markieren
Matthias
Hallo zusammen! Bin leider völlig hilflos mit meinem Problem. Google- und Forensuche konnten bisher auch nicht ausreichend helfen.
Ich habe eine große Datei mit Kundendaten. Es werden gekaufte Artikel nach Namen, Rechnungsnummern, uvm. aufgelistet.
In Spalte A sind die Namen, in den weiteren Spalten die Artikel, Mengen, Preise, etc. Die Namen sind jeweils grau eingefärbt.
Nun möchte ich gerne per Makro die Daten unter den jeweiligen Namen markieren und in ein neues Tabellenblatt einfügen das dann gleich noch nach dem jeweiligen Namen benannt wird. Dies soll in einer Schleife ablaufen so dass ich für jeden Kunden am Ende ein eigenes Tabellenblatt mit den jeweiligen Daten habe.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich zwischen zwei Namen markieren
05.05.2012 00:59:27
Matze,Matthias
Hi Namensvetter,
du schreibst in Spalte A stehen die Namen , ich vermute mal ab A2 da A1 eine Überschrift ist?
Und in Welcher Tabelle/Sheet ? Vermute mal in Tabelle1 oder Sheet"Kundenstamm" ? ist nur geraten Lol.
Also ein wenig genauer bitte. oder besser eine kleine Musterdatei.
Gruß Matze, Matthias
Anzeige
AW: Bereich zwischen zwei Namen markieren
05.05.2012 09:09:01
Matthias
Hallo Matze,
stimmt auch wieder. Hab die Datei mal gekürzt und eingestellt:
https://www.herber.de/bbs/user/80047.xlsx
Die Daten werden automatisch von einem Kassensystem erzeugt und sind leider nicht gut strukturiert. Deshalb die Frage nach der Makro-Lösung.
Anzeige
AW: Bereich zwischen zwei Namen markieren
05.05.2012 11:01:11
Tino
Hallo,
hier mal eine Variante.
Die Datei müsstest Du als .xlsm speichern, .xlsx kann kein VBA!
Evtl. bei With Tabelle1.UsedRange.Columns(1).Cells die Tabelle und Spalte anpassen.
Sub Start()
Dim rngCopy As Range
Dim n&, nErste&, nLetzte&
Dim objTab As Worksheet

Const intColorIntex = 15

With Tabelle1.UsedRange.Columns(1).Cells
    For n = 1 To .Count
        If nErste = 0 Then
            If .Cells(n, 1).Interior.ColorIndex = intColorIntex Then
                nErste = n
            End If
        ElseIf (nLetzte = 0) Or (n = .Count) Then
            If (.Cells(n, 1).Interior.ColorIndex = intColorIntex) Or (n = .Count) Then
                nLetzte = n - IIf(n = .Count, 0, 1)
                Set rngCopy = Range(.Cells(nErste, 1), .Cells(nLetzte, 1)).EntireRow
                nErste = n
                nLetzte = 0
            End If
        End If
        
        If Not rngCopy Is Nothing Then
            With ThisWorkbook
                If CheckTab(Trim$(rngCopy.Cells(1, 1))) Then
                    Set objTab = .Sheets(Trim$(rngCopy.Cells(1, 1)))
                    objTab.UsedRange.Clear
                Else
                    Set objTab = .Sheets.Add(After:=.Sheets(.Sheets.Count))
                    objTab.Name = Trim$(rngCopy.Cells(1, 1))
                End If
            End With
            
            rngCopy.Copy objTab.Cells(1, 1)
            Set rngCopy = Nothing
        End If
    Next n
End With
End Sub


Function CheckTab(strName$) As Boolean
On Error Resume Next
CheckTab = ThisWorkbook.Sheets(strName).Index <> 0
End Function
Gruß Tino
Anzeige
@Tino, nur eine Zwischenfrage..
05.05.2012 11:37:16
Matze,Matthias
Hallo Tino,
wie stellst du diesen Code hier ein?
Wenn man versucht diesen zu markieren werden die "orangen" Zahlen nicht mit eingebunden.
Somit ist wenn ich den Kopiere u. wieder einfüge, der Zeilenumbruch nicht gegeben.
Ist dafür eine spezielle Software nötig?
Gruß Matthias
Anzeige
AW: @Tino, ..oops jetzt gings..
05.05.2012 11:41:57
Matze,Matthias
Sorry Tino,
eben gings, hab wohl irgent ein zeichen mit kopiert und bekam deswegen eine falsche Darstellung.
Gruß Matthias
AW: @Tino, nur eine Zwischenfrage..
05.05.2012 13:51:19
Matthias
Hallo Tino,
der Hit! Funktioniert einwandfrei, vielen vielen Dank!

Forumthreads zu verwandten Themen

Stundenwert zwischen zwei Tagen
Huber

Hallo,
folgendes Problem.
Möchte den Stundenwert zwischen zwei Tagen (ohne Datum) wissen.
Beispiel: Zelle A1: Samstag 06:00 Zelle B1: Sonntag 12:00 C1: 30
Danke im voraus...
22.08.2008 08:11:00
Thread-ID: 1003710
13 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
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Wenn Links keine Zahl - MsgBox
Heinz

Leute ich habe bitte noch ein Problem
Mit unteren Code werden Werte (Zahlen) verschoben.
Nun möchte ich bitte wenn in " Range("F65") = Left(wks.Range("C5").Value, 5) " keine 5 Zahlen stehen, das dann eine MsgBox erscheint "Linie 311 keine gültige SAP Nummer".
Ist das mit diesen unte...
02.02.2009 20:00:18
Thread-ID: 1046400
3 Beiträge
Wenn einer von dann
dann

Wer kann helfen bzw. geht das überhaupt ?
es soll: nur wenn A10 -----einer von PAFFTD ist -------- gerechnet werden
aber das funktioniert nur, wenn der Wert A10 am Anfang von PAFFTD steht.
PAFFTD
L3344
L2233
L6633
usw.
"Wenn A10=L3344 dann funktioniert die Fo...
03.03.2009 10:20:37
Thread-ID: 1055838
7 Beiträge
Mehr als sieben Werte bei WENN(Prüfung;Dann_Wert;S
Florian

Hallo zusammen,
WENN(Prüfung;Dann_Wert;Sonst_Wert). Leider kann ich nicht mehr als sieben Werte eingeben.
Gibt es eine Möglichkeit diese Obergrenze zu Umgehen?
Danke schon mal und schönes Wochenende :-)
13.03.2009 14:55:58
Thread-ID: 1059900
4 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Funktion Zahlenbereich auswerten
Alexander

Servus und Hallo,
ein kleines Problem für die Profis.
Ich habe einen Bereich an Zahlen (A2:A35) dort werden täglich Zahlen erechnet.
Wenn also eine Zahl, in diesem Bereich erechnet werden sollte, der unter bsp.: 300 liegt, dann soll eine Warnmeldung in B7 erscheinen.
Wie kann ic...
18.05.2009 11:45:16
Thread-ID: 1075838
4 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Anzeige
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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