Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife oder Makro?

VBA Schleife oder Makro?
11.05.2014 18:15:38
Alex105
Hallo Zusammen,
ich versuche das gewünschte Makro mal so präzise wie möglich zu beschreiben:
Ich ziehe mir eine Tabelle (die ist bereits nach Jahreszahlen aufsteigend sortiert) aus einem Warenwirtschaftssystem und füge sie in Excel (2010) ein. Jetzt möchte ich nach jedem letzten Wert eines Jahres eine Leerzeile eingefügt haben und genau da beginnt das Problem.... Die Datensätze können mal länger und mal kürzer sein also brauche ich ein Makro, welches erkennt, wann der letzte Wert eines Jahres erreicht wurde. Geht das überhaupt mit Makro?
Vielen Dank vorab und Viele Grüße
Alex

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Schleife oder Makro?
11.05.2014 18:57:10
Tino
Hallo,
kannst mal so testen.
Tabelle1 ist die Tabelle und Columns(1) ist die Spalte wo die Datumswerte stehen, evtl. anpassen.
Sub Test()
Dim nRow, lngDateMin&, lngDateMax&, n&
With Tabelle1.UsedRange.EntireRow
lngDateMin = Application.WorksheetFunction.Min(.Columns(1))
lngDateMax = Application.WorksheetFunction.Max(.Columns(1))
For n = Year(lngDateMax) To Year(lngDateMin) Step -1
lngDateMax = DateSerial(n + 1, 1, 1)
nRow = Application.Match(lngDateMax, .Columns(1), 1)
If IsNumeric(nRow) Then
If .Cells(nRow + 1, 1)  "" Then
.Rows(nRow + 1).Insert Shift:=xlDown
End If
End If
Next n
End With
End Sub
Gruß Tino

Anzeige
AW: VBA Schleife oder Makro?
11.05.2014 19:58:16
Alex105
Hallo Tino,
funktioniert super! Vielen, vielen Dank!
Eine ergänzende Frage noch.
Wenn ich vorher ein Makro laufen lasse, was formatierung etc. anpasst, wie bekomme ich deins im Nachgang eingefügt ohne, dass dann ein Fehler kommt?!
Wenn ich das schaffe, müsste es perfekt sein :)
1000 Dank nochmal!
Alex

AW: VBA Schleife oder Makro?
11.05.2014 20:20:01
Tino
Hallo,
am ende von Deinem Makro einfach mit 
Call Test

dieses Makro aufrufen.
Gruß Tino

AW: VBA Schleife oder Makro?
12.05.2014 08:36:51
Alex105
Hi Tino,
also, wenn ich nur dein Makro nutze, funktioniert es, wenn ich es nur in "dieser Arbeitsmappe" laufen lasse. Sobald ich es in der "PERSONAL.XLSB" abspeichern und nutzen möchte, geht nichts mehr. Die Sache mit dem "Call" ist noch nicht ganz 100%ig aber da arbeite ich mich durch....
Hast du eine Idee, wie ich das nutzen kann bzw. dass es in der Personal auch läuft?
Vielen Dank und viele Grüße
Alex

Anzeige
AW: VBA Schleife oder Makro?
12.05.2014 08:36:59
Alex105
Hi Tino,
also, wenn ich nur dein Makro nutze, funktioniert es, wenn ich es nur in "dieser Arbeitsmappe" laufen lasse. Sobald ich es in der "PERSONAL.XLSB" abspeichern und nutzen möchte, geht nichts mehr. Die Sache mit dem "Call" ist noch nicht ganz 100%ig aber da arbeite ich mich durch....
Hast du eine Idee, wie ich das nutzen kann bzw. dass es in der Personal auch läuft?
Vielen Dank und viele Grüße
Alex

AW: VBA Schleife oder Makro?
12.05.2014 08:40:15
Alex105
Hi Tino,
also, wenn ich nur dein Makro nutze, funktioniert es, wenn ich es nur in "dieser Arbeitsmappe" laufen lasse. Sobald ich es in der "PERSONAL.XLSB" abspeichern und nutzen möchte, geht nichts mehr. Die Sache mit dem "Call" ist noch nicht ganz 100%ig aber da arbeite ich mich durch....
Hast du eine Idee, wie ich das nutzen kann bzw. dass es in der Personal auch läuft?
Vielen Dank und viele Grüße
Alex

Anzeige
AW: VBA Schleife oder Makro?
12.05.2014 09:48:36
Alex105
Hi Tino,
ich nehm alles zurück. Ich habe den Namen oben angepasst auf ActiveSheet und es läuft jetzt auch mit dem Call!
Vielen, vielen Dank!!!!
Viele Grüße
Alex

AW: VBA Schleife oder Makro?
12.05.2014 18:32:46
Tino
Hallo,
du hast es schon richtig erkannt, wenn man aus einer anderen Datei was ja die xlsb ist
muss man mit ActiveWorkbook arbeiten.
in etwa so
Sub Test()
Dim nRow, lngDateMin&, lngDateMax&, n&
With ActiveWorkbook.Sheets("Tabelle1").UsedRange.EntireRow
lngDateMin = Application.WorksheetFunction.Min(.Columns(1))
lngDateMax = Application.WorksheetFunction.Max(.Columns(1))
For n = Year(lngDateMax) To Year(lngDateMin) Step -1
lngDateMax = DateSerial(n + 1, 1, 1)
nRow = Application.Match(lngDateMax, .Columns(1), 1)
If IsNumeric(nRow) Then
If .Cells(nRow + 1, 1)  "" Then
.Rows(nRow + 1).Insert Shift:=xlDown
End If
End If
Next n
End With
End Sub
Gruß Tino
Anzeige

309 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1