Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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
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!

304 Forumthreads zu ähnlichen 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
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Diagramm mit wenigen Werten -> Zwischenwerte
Robin

Hey Cracks,
ich zerbreche mir grad den Kopf über folgender Frage:
Ich habe eine gemessene Federkennlinie, von der ich nur ein Bild der Kennlinie habe, aber keine Messwerte.
Also hab ich eine handvoll Werte rausgelesen und daraus ein interpoliertes x-y-Diagramm erstellt, das auch ga...
25.09.2008 16:34:00
Thread-ID: 1012380
4 Beiträge
Anzeige
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 Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 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
12
2
6
3
5
3
2
2
8
2
6
3
1
2
3
3
15
1
7
2
2
5
7
8
8