Frunze121
26.10.2015, 13:18
Könnt ihr mir bitte bei meinem Excel Makro helfen?

Sub Macro()

    Dim x As Integer
    Dim i As Integer

    For x = 2 To 498 Step 2
    Windows("Drittbankmeldeverträge- nur Kontonummern.xlsx").Activate
    Range("B" & x, "CY" & x + 1).Select
    Selection.Copy
    Entity = Range("A" & x)
    Windows("2015-10-20_Drittbankmeldeverträge(1).xls").Activate
        For i = 2 To 800
        If Range("A" & i) = Entity = True Then
        Range("M" & i).Select
        ActiveSheet.Paste
        Exit For
        End If
        Next i
        Next x
   
End Sub

 ...zum Beitrag
Antwort
von Frunze121
27.10.2015, 15:14

Danke Leute! funktioniert einwandfrei. Es lag daran dass die 2 Spalten die zu vergleichen waren mit einer unplanbaren Anzahl an Leerzeichen nach dem subject versehen war. Diese habe ich entfernt und nun funktioniert es! Danke!

 ...zur Antwort
Frunze121
26.10.2015, 13:18
Könnt ihr mir bitte bei meinem Excel Makro helfen?

Sub Macro()

    Dim x As Integer
    Dim i As Integer

    For x = 2 To 498 Step 2
    Windows("Drittbankmeldeverträge- nur Kontonummern.xlsx").Activate
    Range("B" & x, "CY" & x + 1).Select
    Selection.Copy
    Entity = Range("A" & x)
    Windows("2015-10-20_Drittbankmeldeverträge(1).xls").Activate
        For i = 2 To 800
        If Range("A" & i) = Entity = True Then
        Range("M" & i).Select
        ActiveSheet.Paste
        Exit For
        End If
        Next i
        Next x
   
End Sub

 ...zum Beitrag
Antwort
von Frunze121
26.10.2015, 13:20

ich möchte dass er alle "i" durchgeht bevor er zum nächsten x springt. Es scheint nicht richtig zu funktionieren. Ich denke dass es damit in zusammenhang liegen könnte.

 ...zur Antwort
Frunze121
22.10.2015, 17:41
Hey Leute ich muss mehrere Zellen einer Excel Datei mit einer anderen Excel Datei vergleichen. kennt sich da jemand damit aus?
...zum Beitrag
Antwort
von Frunze121
22.10.2015, 17:45

Dim x As Integer
    For x = 2 To 498 Step 2
    Next x
    Windows("Datei1.xlsx").Activate
    Entity = Range("A" & x)
    Windows("Datei2.xls").Activate
    For Each cell In Range("A2:A1000")
    If cell.Value = Entity Then
    i = cell.Row
    Exit For
    End If
    Next
    Windows("Datei1.xlsx").Activate
    Range("B" & x, "CY" & x - 1).Select
    Selection.Copy
    Windows("Datei2.xls").Activate
    Range("M" & i).Select
    ActiveSheet.Paste
   
End Sub

So sieht es derzeitig aus.

Er scheint erst von 2 bis 498 zu zählen und dann den rest zu machen. Ich möchte aber dass er das für x=2; X=4;x=6; etc durchführt. habt ihr nen tipp?

 ...zur Antwort
Frunze121
14.10.2015, 10:16
Habt ihr eine Idee, wie ich ein Excel Dokument auf eine bestimmte Art und Weise mit anderen Excel Dokumenten füttere, ohne Copy Paste Aktionen machen zu müssen?

Ich bekomme jeden Tag eine Datei die in eine andere Overview Datei übernommen werden muss. Diese einzelne Dateien müssen je nach Tag untereinander in diese große Datei eingefügt werden. Habt ihr da eine Idee oder einen Tipp wo ich weiter recherchieren könnte?

 ...zum Beitrag
Antwort
von Frunze121
14.10.2015, 12:45

hier die erste datei noch.

 ...zur Antwort
Frunze121
14.10.2015, 10:16
Habt ihr eine Idee, wie ich ein Excel Dokument auf eine bestimmte Art und Weise mit anderen Excel Dokumenten füttere, ohne Copy Paste Aktionen machen zu müssen?

Ich bekomme jeden Tag eine Datei die in eine andere Overview Datei übernommen werden muss. Diese einzelne Dateien müssen je nach Tag untereinander in diese große Datei eingefügt werden. Habt ihr da eine Idee oder einen Tipp wo ich weiter recherchieren könnte?

 ...zum Beitrag
Antwort
von Frunze121
14.10.2015, 12:41

Man kann sich das ganze so verstellen. wie die dateien unten. Ich möchte nur in den unten beschriebenen Skript noch einbauen, dass er aus der ersten Datei das Datum nicht und in der zweiten Datei sich das jeweilige Datum sucht um diese Datei an die richige Stelle zu kopieren. Habt ihr nen text wie das umgesetzt warden kann?

 ...zur Antwort
Frunze121
08.09.2015, 09:44
Ich möchte mir Treiber schonmal runterladen, weil ich meinen Computer komplett neu mit Windows 10 versehen möchte.

MBO: Asus M5a97 R2.0, AMD 970, So. AM3+

Grafikkarte: AMD Radeon R7 240, 2GB

CRD: Cardreader intern 3,5" point of view 54 in 1

WLC: 150 MbpS WLAN AdapterPCle, TL-WN 781N

CPU: AMD FX Series FX-4300, 4x 3.80 GHZ, 95 W, AM3+

Ich könnte mir zwar irgendwelche runterladen. Nur möchte ich vermeiden meinen Rechner mit irgendwelchen Treiber zu zumüllen die er nicht braucht. Vielen Dank im Vorraus für de Antworten! Wenn ihr noch Informationen bräuchtet oder ich zu wenig angegeben habe ... einfach Bescheid geben ;)

 ...zum Beitrag
Antwort
von Frunze121
08.09.2015, 10:29

Ich finde nur leider zu viele (meist weniger hilfreiche) Downloader für meine Treiber, die dann nicht funktionieren. Habt ihr mal bitte nen Link?

 ...zur Antwort
Frunze121
08.09.2015, 09:41
Ich habe eine IBAN Überweisung nach GB gemacht, wo eine Zahl der IBAN falsch war. Weiß jmd wie die Rechtslage in GB wenn ich privatrechtlich vorgehen muss?
...zum Beitrag
Antwort
von Frunze121
08.09.2015, 09:57

Meine Überweisung ist mittlerweile seit ca 20 Tagen unterwegs. Ein Nachforschungsauftrag ist ebenfalls von meiner Bank veranlasst worden.

Dies ist richtig was du sagst. Nur ist die eben die deutsche Rechtssprechung seinen Anspruch so geltend zu machen. Ich habe Bedenken, dass dies aus irgendwelchen Gründen in GB anders sein könnte...

 ...zur Antwort