Office: Schleife mehrmals durchlaufen

Helfe beim Thema Schleife mehrmals durchlaufen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; vorheriger Post kann ignoriert werden. Ich habe davon alles lösen können. Ob elegant oder nicht wird sich zeigen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von akku, 30. August 2014.

Seite 3 von 5

AKKU

akku

Schleife mehrmals durchlaufen

vorheriger Post kann ignoriert werden.
Ich habe davon alles lösen können.
Ob elegant oder nicht wird sich zeigen...

akku, 4. September 2014

#31
MC SANTA

Mc Santa

Hallo,

ich würde die Sub folgendermaßen schreiben:
Code:

Sub AF()
Dim zeilemax As Long
Dim rFind As Range
With ActiveSheet
'letzte Zeile in Spalte A finden
zeilemax = .Cells(.Rows.Count, 1).End(xlUp).Row

'Spalte finden mit "AnfDat" in Zeile 1
Set rFind = .Rows(1).Find(what:="AnfDat", searchorder:=xlByColumns)

'Wenn eine solche Spalte gefunden, dann
If Not rFind Is Nothing Then
'Neue Spalte einfügen
rFind.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove

'Überschrift in neuer Spalte
rFind.Offset(, -1) = "Datum"

'Formel in neuer Spalte einfügen
rFind.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = _
"=DATE(LEFT(RC[1],4),MID(RC[1],5,2),RIGHT(RC[1],2))"

'Formel durch Werte ersetzen
rFind.Offset(1, -1).Resize(zeilemax - 1).Value = rFind.Offset(1, -1).Resize(zeilemax - 1).Value

'Alte Spalte löschen
rFind.EntireColumn.Delete
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG

Mc Santa, 4. September 2014

#32
AKKU

akku

Hallo Santa,

das ist eine tolle Lösung. Danke dafür und auch danke fürs Kommentieren...

Ich wandle damit nun das "Rohdatum" in ein echtes Datum um. Das klappt wunderbar.

Dann ermittele ich einen Stichtag, der immer der Mittwoch der Vorwoche ist:
Code:

KW = DatePart("ww", Date, vbMonday, vbFirstFourDays)
wochentag = Weekday(Date, vbMonday)
stichtagBerechnung = 3 - wochentag
stichtag = Date + (stichtagBerechnung) - 7
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit diesem Stichtag will ich nun filtern, dass alle Tage NACH diesem Stichtag ausgeblendet werden.
Code:

.AutoFilter Field:=Ueb5, Criteria1:="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

akku, 4. September 2014

#33
HARY

hary

Schleife mehrmals durchlaufen

Moin
Des is des mt dem Sch... Datum, daher werde ich nie befreundet werden mit Datum.
schau mal in #26
edit: Teste mal so.
fuer Excel 2003 und 2007
Criteria1:="

hary, 4. September 2014

#34
AKKU

akku

Hallo Hary,

damit klappts. vielen Dank - Du bist echt ein crack.
Woher weiss man sowas????

Bevor ich weiter mache mit meinem Projekt, eine kleine Zwischenfrage:

Nachdem das Makro gelaufen ist und die Autofilter gesetzt sind, sehe ich bei einem Klick auf die gefilterten Spaltenüberschriften keine Haken, was gefiltert wird. Kann man das durch den code so ändern, dass man die Haken sieht, als hätte man manuell gefiltert?

Gruss
akku

akku, 4. September 2014

#35
HARY

hary

Moin akku

Woher weiss man sowas????
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In Foren mitlesen,mitlesen,mitlesen ... bis zum erbrechen und ausprobieren.
Den Haken setzen, glaub ich nicht. Lasse mich aber gern eines besseren belehren.
gruss hary

hary, 4. September 2014

#36
AKKU

akku

Moin,

dass man den Haken nicht sieht, ist echt ein großes Manko.
So hat der Anwender keine Möglichkeit festzustellen, was an welcher Stelle weg gefiltert wurde. Sehr schade...

Gruß
akku

akku, 5. September 2014

#37
HARY

hary

Schleife mehrmals durchlaufen

Moin
Du koenntest das Filterkriterium in der StatusBar anzeigen lassen. Waere dann in der linken unteren Ecke von Excel.
Bsp.:
Code:

Sub ein()
Application.StatusBar = "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary, 5. September 2014

#38
AKKU

akku

Guten Morgen,

so, ich mache mal ein wenig weiter mit meiner Automatisierung...

folgender code funktioniert ja prima:
Code:

'Wenn eine solche Spalte gefunden, dann
If Not rFind Is Nothing Then
'Neue Spalte einfügen
rFind.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove

'Überschrift in neuer Spalte
rFind.Offset(, -1) = "AnfDat"

'Formel in neuer Spalte einfügen
rFind.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = _
"=DATE(LEFT(RC[1],4),MID(RC[1],5,2),RIGHT(RC[1],2))"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nun habe ich noch zwei Spalten ermittelt und deren Spaltennummer in die Variablen "rMenge" und rE_Preis" geschrieben.
Wie kann ich nun analog zu der Zeile
Code:

'Formel in neuer Spalte einfügen
rFind.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = _
"=DATE(LEFT(RC[1],4),MID(RC[1],5,2),RIGHT(RC[1],2))"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/code]
mit diesen beiden Spalten rechnen? Spalte rMenge * Spalte rE_Preis ???

Gruss
akku

akku, 7. September 2014

#39
HARY

hary

Moin akku
Meinst du die Variablen in eine Formel einbauen?
Code:

FormulaR1C1 = "=RC[" & rMenge & "]*RC[" & rE_Preis & "]"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 8. September 2014

#40
AKKU

akku

Hallo Hary,

wenn ich den code so eingebe, erhalte ich einen LZF 1004 Anwendungs oder objektorientierter Fehler.
Woran kann das liegen? Irgendwo muss noch was falsch sein...
Code:

'Wenn eine solche Spalte gefunden, dann
If Not rVOL Is Nothing Then
'Neue Spalte einfügen
rVOL.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove

'Überschrift in neuer Spalte
rVOL.Offset(, -1) = "G-Preis"

'Formel in neuer Spalte einfügen
rVOL.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = "=RC[" & rMenge & "]*RC[" & rE_Preis & "]"

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss
akku

akku, 8. September 2014

#41
HARY

hary

Moin
Mit Codeschnipsel ist das so eine Sache.
Wenn ich statt rVOL, Bspw. Range("C1") nehme funzt der Code.
Ist rVOL ein RangeobjeKt oder ist es nur ein Typ long??
evtl.: Columns(rVOL)
gruss hary

hary, 9. September 2014

#42
AKKU

akku

Schleife mehrmals durchlaufen

sorry, wegen des Schnipsels...
so schaut dieser part komplett aus:
Code:

Dim rFind As Range
Dim rMGE As Range
Dim rVOL As Range
Dim rEPR As Range
With ActiveSheet
'letzte Zeile in Spalte A finden
zeilemax = .Cells(.Rows.Count, 1).End(xlUp).Row

'Spalte finden mit "AnfDat" in Zeile 1
'Spalte finden mit "Mge" in Zeile 1
'Spalte finden mit "VOL" in Zeile 1
'Spalte finden mit "E-Preis" in Zeile 1

Set rFind = .Rows(1).Find(what:="AnfDat", searchorder:=xlByColumns)
Set rMGE = .Rows(1).Find(what:="Mge", searchorder:=xlByColumns)
Set rVOL = .Rows(1).Find(what:="VOL", searchorder:=xlByColumns)
Set rEPR = .Rows(1).Find(what:="E-Preis", searchorder:=xlByColumns)

'Wenn eine solche Spalte gefunden, dann
If Not rFind Is Nothing Then
'Neue Spalte einfügen
rFind.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove

'Überschrift in neuer Spalte
rFind.Offset(, -1) = "AnfDat"

'Formel in neuer Spalte einfügen
rFind.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = _
"=DATE(LEFT(RC[1],4),MID(RC[1],5,2),RIGHT(RC[1],2))"

'Formel durch Werte ersetzen
rFind.Offset(1, -1).Resize(zeilemax - 1).Value = rFind.Offset(1, -1).Resize(zeilemax - 1).Value

'Alte Spalte löschen
rFind.EntireColumn.Delete
End If

' 'Wenn eine solche Spalte gefunden, dann
If Not rVOL Is Nothing Then
' 'Neue Spalte einfügen
rVOL.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove

'Überschrift in neuer Spalte
rVOL.Offset(, -1) = "G-Preis"

'Formel in neuer Spalte einfügen
rVOL.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = "=RC[" & rMGE & "]*RC[" & rEPR & "]"

'Formel durch Werte ersetzen
' rFind.Offset(1, -1).Resize(zeilemax - 1).Value = rFind.Offset(1, -1).Resize(zeilemax - 1).Value
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

der erste teil mit rFind läift sauber durch,
im zweiten Teil mit rVOL kommt der LZF beim Einsetzen der Formel...

Gruss
akku

akku, 9. September 2014

#43
HARY

hary

Moin
hab wenig Zeit i.M.. Code nicht aufgeraeumt.
Code:

Dim rFind As Range
Dim rMGE As Range
Dim rVOL As Range
Dim rEPR As Range
Dim zeilemax As Long
With ActiveSheet
'letzte Zeile in Spalte A finden
zeilemax = .Cells(.Rows.Count, 1).End(xlUp).Row
'Spalte finden mit "AnfDat" in Zeile 1
'Spalte finden mit "Mge" in Zeile 1
'Spalte finden mit "VOL" in Zeile 1
'Spalte finden mit "E-Preis" in Zeile 1
Set rFind = .Rows(1).Find(what:="AnfDat", searchorder:=xlByColumns)
Set rVOL = .Rows(1).Find(what:="VOL", searchorder:=xlByColumns)
'Wenn eine solche Spalte gefunden, dann
If Not rFind Is Nothing Then
'Neue Spalte einfügen
rFind.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove
'Überschrift in neuer Spalte
rFind.Offset(, -1) = "AnfDat"

'Formel in neuer Spalte einfügen
rFind.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = _
"=DATE(LEFT(RC[1],4),MID(RC[1],5,2),RIGHT(RC[1],2))"

'Formel durch Werte ersetzen
rFind.Offset(1, -1).Resize(zeilemax - 1).Value = rFind.Offset(1, -1).Resize(zeilemax - 1).Value

'Alte Spalte löschen
rFind.EntireColumn.Delete
End If

' 'Wenn eine solche Spalte gefunden, dann
If Not rVOL Is Nothing Then

' 'Neue Spalte einfügen
rVOL.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove
Set rMGE = .Rows(1).Find(what:="Mge", searchorder:=xlByColumns)
Set rEPR = .Rows(1).Find(what:="E-Preis", searchorder:=xlByColumns)
MsgBox rMGE.Column
'Überschrift in neuer Spalte
rVOL.Offset(, -1) = "G-Preis"

'Formel in neuer Spalte einfügen
rVOL.Offset(1, -1).Resize(zeilemax - 1).FormulaR1C1 = "=RC" & rMGE.Column & "*RC" & rEPR.Column

'Formel durch Werte ersetzen
' rFind.Offset(1, -1).Resize(zeilemax - 1).Value = rFind.Offset(1, -1).Resize(zeilemax - 1).Value
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 9. September 2014

#44
AKKU

akku

Moin,

prima, damit funktioniert es und ich bin kurz vor Fertigstellung dieses Projektes.

Ich muss nun noch, nachdem die Autofilter gefiltert haben in zwei Spalten eine Autosumme (Teilergebnis) bilden. Wie ist hier die Syntax, um die ja immer unterschiedlichen (sichtbaren) Anfangs und Endzeilen zu verwenden?
Die jeweiligen Ergebnisse bräuchte ich sowohl in der Tabelle, als auch als Variable zur Ausgabe in einer Msgbox.

Gruß
akku

akku, 9. September 2014

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 5

Thema:

Schleife mehrmals durchlaufen

Die Seite wird geladen...

Schleife mehrmals durchlaufen - Similar Threads - Schleife mehrmals durchlaufen
Verkettung von Zellen - Schleife
in Microsoft Excel Hilfe
Verkettung von Zellen - Schleife: Hallo, folgendes Problem: Ich möchte in einer Tabelle die Texte in Spalte A mit den Texten in Spalte B verketten. Dazu benutze ich folgenden Code: Sub VerkettungAB() Range("E2").Value =...
While-Schleife wird nicht beendet
in Microsoft Access Hilfe
While-Schleife wird nicht beendet: Hallo Forum Ein aus einem Unterformular soll in ein Feld im Hauptformular übernommen (fix abgespeichert) werden. Das Feld wurde nachträglich im Hauptformular (+ Tabelle) eingefügt. Nun habe ich...
For Next Schleife
in Microsoft Excel Hilfe
For Next Schleife: Hallo zusammen, da bin ich wieder und wie kann es anders sein mit einem Problem. Ich habe eine Tabelle (im Anhang) dort soll die Werte in Zellen a/b/f kopiert werden und in die erste frei Zeile...
VBA Schleife kopieren und einfügen von Spalten
in Microsoft Excel Hilfe
VBA Schleife kopieren und einfügen von Spalten: Hallo Zusammen, Ich habe auf einem Tabellenblatt eine variable Anzahl an Spalten mit Daten die auch eine variable Anzahl an Zeilen haben, auch mit Lücken in den Zeilen. Die Spalten mit den Infos...
VBA: Variable Anzahl Zeilen mit Suchkriterien finden und kopieren
in Microsoft Excel Hilfe
VBA: Variable Anzahl Zeilen mit Suchkriterien finden und kopieren: Hallo zusammen, ich konnte bislang nur bruchstückhafte Ansätze zu meinem Problem finden, jedoch keinen um mehrere Kriterien zu erfassen und anschließend zu ordnen, daher brauche ich (mal wieder)...
Makro mehrmals ausführen (Schleife)
in Microsoft Excel Hilfe
Makro mehrmals ausführen (Schleife): Hallo! Ich habe folgendes Problem und bin leider in VBA nicht sehr bewandert: In Excel 2010 habe ich eine Simulation von Aktienkursen laufen, anhand derer sich der Hedgefehler für jeden...
For Each Schleife mehrmals nach gleichem Wert suchen
in Microsoft Excel Hilfe
For Each Schleife mehrmals nach gleichem Wert suchen: Hallo Ich hänge seit einigen Tagen an einem Problem. Ich möchte Daten aus einer Tabelle über Userform D auslesen und in Userform wieder ausgeben. Das habe ich auch soweit hinbekommen. Ich suche...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden