Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aussortieren

Aussortieren
03.01.2017 08:06:03
wdk
Hallo zusammen,
Vtl könnt Ihr mir weiter helfen.
Ich brauche ein Maktro, welche mir die Spalte G(hier steht ein Datum) ausliest und wenn das Datum kleiner 2016 ist soll die ganze Zeile gelöscht werden und anderen Zeilen eins aufrücken damit ich keine leeren Zeilen haben.
Danach soll die Spalte A(hier steht eine Zahl) ausgelesen werden, dort soll
verglichen werden, ob die Zahl identisch ist mit der darunter, wenn ja,
soll in der Spalte J eine fortlaufende Nummer geschrieben werden, beginnenden mit 1 dann 2,3,4...
Vielen Dank im voraus :)

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aussortieren
03.01.2017 09:11:19
Werner
Hallo,
hier mal das Makro zum Löschen des Datums in Spalte G
Public Sub aaa() Dim loLetzte As Long Dim rngBereich As Range Dim rngZelle As Range loLetzte = Sheets("Tabelle1").Cells(Rows.Count, 7).End(xlUp).Row Set rngBereich = Sheets("Tabelle1").Range("G1:G" & loLetzte) For Each rngZelle In rngBereich If IsDate(rngZelle) Then If Year(rngZelle) Gruß Werner
Ich hab es so verstanden...
03.01.2017 09:22:49
Michael
Wdk (und Werner),
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim LetzteZeile&, i&, DatenA As Range, Eintrag As Range, LfdNr&
With Ws
LetzteZeile = .Cells(.Rows.Count, 7).End(xlUp).Row
'Spalte G nach Datum abgleichen
For i = LetzteZeile To 2 Step -1 'To 2 für Überschriftenzeile
If IsDate(.Cells(i, 7)) Then
If Year(.Cells(i, 7))
LG
Michael
Anzeige
AW: Aussortieren
03.01.2017 09:20:47
Matthias
Hallo
Bsp in G1:G16 stehen deine Daten
Option Explicit
Sub entfernen()
Dim x&
Application.ScreenUpdating = False
For x = 16 To 1 Step -1
If Right(Cells(x, 7), 4)
Die 16 Einlesen oder Anpassen.
Gruß Matthias
Wie mein Ansatz, nur fehlt hier dann...
03.01.2017 09:24:27
Michael
Hi Matthias,
...noch der Vergleich in A:A und das Setzen der laufenden Nummer in J:J.
Aber ich lösche beim Vergleich in G:G auch "von unten"...
Schönen Tag,
LG
Michael
AW: Wie mein Ansatz, nur fehlt hier dann...
03.01.2017 09:49:34
Werner
Hallo Matthias und Michael,
ihr habt natürlich recht, beim Löschen immer von unten. Ist wohl noch ein wenig früh für mich.
Gruß Werner
Anzeige
Hallo zusammen
03.01.2017 10:05:58
Matthias
Hallo,
das mit der Numerierung habe ich anders verstanden als Michael.
Deshalb gabs auch noch keinen Vorschlag von mir.
Tabelle1

 AGIJ
12222103.01.2017  
22222204.01.2017  
32222405.01.2017  
42222506.01.2017  
52222607.01.2017  
62222709.01.201711
72222710.01.20172 
82223011.01.2017  
92223112.01.201712
102223114.01.20172 
112223315.01.201713
122223317.01.20172 
132223318.01.20173 


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Michael vermutet die Darstellung wie in (J)
Ich vermute so wie in (I) dargestellt.
Ein Rückmeldung vom Fragenden wäre daeshalb nicht verkehrt.
Gruß Matthias
Anzeige
Ich könnt' auch noch lieber schlafen ;-), owT
03.01.2017 10:09:46
Michael
warum machst Du es dann nicht ;-) owT
03.01.2017 10:13:30
Matthias
Hahaha... naja, weil...
03.01.2017 10:34:55
Michael
Userbild
... dann doch lieber Büro ;-)
Lg
Michael
AW: Hahaha... naja, weil...
03.01.2017 11:02:33
wdk
Ich danke euch allen vielmals, schnell und alles nach Wunsch!!!!!!
Die Lösung von Michael passt eins a :)
DANKE allen die mithelfen, starke Leistung.
Top! Gern, Danke für die Rückmeldung, owT
03.01.2017 11:10:00
Michael
AW: von mir auch Danke für die Rückmeldung o.w.T.
03.01.2017 11:29:11
mir
AW: von mir auch Danke für die Rückmeldung o.w.T.
03.01.2017 13:23:28
mir
noch eine kleine Frage :|
dieser Code passt perfekt! 
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim LetzteZeile&, i&, DatenA As Range, Eintrag As Range, LfdNr&
With Ws
LetzteZeile = .Cells(.Rows.Count, 7).End(xlUp).Row
'Spalte G nach Datum abgleichen
For i = LetzteZeile To 2 Step -1 'To 2 für Überschriftenzeile
If IsDate(.Cells(i, 7)) Then
If Year(.Cells(i, 7))

(Dieses Makro wird in der "Tabelle B" bearbeitet
Ist es jetzt möglich die letzte Zahl die generiert worden ist in der Spalte J, als Bsp. 342.
Diese Zahl in die "Tabelle A" in C3 einfügen?
Vielen Dank :)
Anzeige
AW: von mir auch Danke für die Rückmeldung o.w.T.
03.01.2017 13:26:32
mir
noch eine kleine Frage :|
dieser Code passt perfekt! 
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim LetzteZeile&, i&, DatenA As Range, Eintrag As Range, LfdNr&
With Ws
LetzteZeile = .Cells(.Rows.Count, 7).End(xlUp).Row
'Spalte G nach Datum abgleichen
For i = LetzteZeile To 2 Step -1 'To 2 für Überschriftenzeile
If IsDate(.Cells(i, 7)) Then
If Year(.Cells(i, 7))

(Dieses Makro wird in der "Tabelle B" bearbeitet
Ist es jetzt möglich die letzte Zahl die generiert worden ist in der Spalte J, als Bsp. 342.
Diese Zahl in die "Tabelle A" in C3 einfügen?
Vielen Dank :)
Anzeige
AW: von mir auch Danke für die Rückmeldung o.w.T.
03.01.2017 13:43:23
mir
Hallo,
Nach Next Eintrag 
Sheets("Tabelle A").Range("C3") = lfdNr
Gruß Werner
AW: von mir auch Danke für die Rückmeldung o.w.T.
03.01.2017 14:26:41
mir
Danke, es funktioniert teilweise.
Wenn ich ein Haltepunkt einfüge für die nächste prozedur, dann funktioniert es.
Sobald der Haltepunkt weg ist und ich das Makro komplett durchlaufen lasse. Funktioniert es nicht.
So siehts es momentan aus.
Sub DatumSortieren()
Application.ScreenUpdating = False
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("bb")
Dim LetzteZeile&, i&, DatenA As Range, Eintrag As Range, LfdNr&
With Ws
LetzteZeile = .Cells(.Rows.Count, 7).End(xlUp).Row
'Spalte G nach Datum abgleichen
For i = LetzteZeile To 2 Step -1
If IsDate(.Cells(i, 7)) Then
If Year(.Cells(i, 7)) 

Sub Pivo()   
Application.ScreenUpdating = False
Sheets("aa").Select
Cells.Select
Selection.ClearContents
Datum = Date
Cells(1, 1).Value = "XXX"
Selection.Font.Bold = True
Selection.Font.Size = 16
Cells(2, 1).Value = "Stand : " & Datum
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"bb!R1C1:R50000C9", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="aa!R8C1", TableName:="PIVO", DefaultVersion:= _
xlPivotTableVersion14
Cells(8, 1).Select
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige