Hallo zusammen,

ich bin mal wie immer überfordert mit dem VBA Makro...

Der untenstehende Code läuft zwar, jedoch kopiert er keine Daten in die Zielbereichen.

Sub Sortieren()

Dim iZaehler As Long, Z2 As Long
Z2 = 2

With Worksheets("Blatt1").Select
For iZaehler = 2 To Worksheets("Blatt1").Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(iZaehler, "C") > Date And Cells(iZaehler, "C") >= Year(Now) And Cells(iZaehler, "C") >= Month(Now) And Cells(iZaehler, "C") <= Month(Now) + 6 Then
        Sheets("Blatt1").Cells(Z2, "A").Value = Sheets("Blatt1").Cells(iZaehler, "G").Value
        Sheets("Blatt1").Cells(Z2, "B").Value = Sheets("Blatt1").Cells(iZaehler, "H").Value
        Sheets("Blatt1").Cells(Z2, "C").Value = Sheets("Blatt1").Cells(iZaehler, "I").Value
        Z2 = Z2 + 1
    End If
Next
End With, End Sub

Ich wäre euch wirklich sehr dankbar, mir dabei zu helfen!

Vielen Dank im Voraus!

Mit besten Grüßen Wissensdurst

Hallo zusammen,

leider weiß ich einfach nicht mehr weiter wie ich folgendes Problem gehändelt bekomme:

Ein Makro/ Befehl soll aus einem vorgegebenen Bereich eine aufsteigende Sortierung der Werte vornehmen. In Spalte B und C sind Zahlen enthalten,wobei Spalte A Bezeichnungen enthält.

Nun möchte ich, dass in einem anderen Tabellenblatt eine aufsteigende Sortierung vorliegt, die spaltenweise erfolgen soll. Die Zeilen- und Spaltenüberschriften sollen bei der Sortierung "mitgenommen" werden bzw. entsprechend der sortierten Zahlen mit aufgelistet werden.

Kurzes Beispiel:

A ,B und C sind die Spaltenüberschriften. X und Y stellen die Bezeichnung der Werte dar (Bindestriche deuten auf Zellenabgrenzung hin).

A - B - C

X - 1 - 2

Y - 3 - 4

Ergebnis der sortierung sollte dann folgendes ergeben:

1). 1 - B - X

2). 2 - C - X

3). 3 - B - Y

4). 4 - C - Y

Über jegliche Hilfe Euerseits wäre ich Euch wirklich sehr dankbar.

Vielen Dank im Voraus.

Mit besten Grüßen Wissensdurst89

Hallo zusammen,

leider komme ich bei meinem Problem nicht mehr weiter.

Ich möchte das Makro so schreiben, dass es nicht nur das Registerblatt prüft bevor es kopiert wird, sondern auch den Inhalt der geöffneten Excel Datei.

Z.B.

'Datei öffnen und fragen Dim strdatei As String strdatei = Application.GetOpenFilename("Exceldateien (.xls), .xls") If Not CVar(strdatei) = False Then On Error Resume Next With Workbooks.Open(Filename:=strdatei, ReadOnly:=True) .Worksheets("XYZ").Range("A1:FC5000").Copy ThisWorkbook.Worksheets("XYZ").Range("A4") .Close False End With If Err.Number <> 0 Then MsgBox "Wrong File! Please choose the correct File!" Exit Sub End If

--> Wie kann ich folgendes noch hinzufügen: 'Wenn in Zelle B3 der geöffneten Datei <> "ABC" ist, dann brich ab und öffne folgende MsgBox hinzu: MsgBox "Wrong File! Content have to refer to "ABC" !

Über jegliche Hilfe Euerseits wäre ich Euch sehr dankbar!

Viele Grüße Wikinger