Office: (Office 2010) Hilfe bei VBA

Helfe beim Thema Hilfe bei VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, ich habe ein Problem damit, dass wenn ich den unten stehenden Code durch laufen lasse alle Zellen so übernommen werden und eingefügt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Fabidi, 8. Juli 2016.

  1. Fabidi Erfahrener User

    Hilfe bei VBA


    Hallo Leute,

    ich habe ein Problem damit, dass wenn ich den unten stehenden Code durch laufen lasse alle Zellen so übernommen werden und eingefügt werden, wie es sein soll, allerdings soll es dann so sein, dass wenn ich das Makro erneut ausführe, dass die Zellen beim zweiten Mal auf dem nächsten Tabellenblatt eine Zeile tiefer stehen und nicht die alte überschreiben.

    Code:
    Dim Quelltab As Worksheet
    Dim Zieltab As Worksheet
    Dim Zelle As Range
    Dim Zaehler As Long
    
    Zaehler = 3
    Bereich = "C3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("C3")
     Zieltab.Cells(Zaehler, 1) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "E3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("E3")
     Zieltab.Cells(Zaehler, 2) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "G3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("G3")
     Zieltab.Cells(Zaehler, 3) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "I3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("I3")
     Zieltab.Cells(Zaehler, 4) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "L3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("L3")
     Zieltab.Cells(Zaehler, 5) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "N3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("N3")
     Zieltab.Cells(Zaehler, 6) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    
    
    Zaehler = 3
    Bereich = "P3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("P3")
     Zieltab.Cells(Zaehler, 7) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    Zaehler = 3
    Bereich = "r3"
    Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
    Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
    For Each Zelle In Quelltab.Range("r3")
     Zieltab.Cells(Zaehler, 8) = Zelle
     Zaehler = Zaehler + 1
    Next Zelle
    
    Range("a1").Select
    Vielen Dank im Voraus!
     
    Fabidi, 8. Juli 2016
    #1
  2. Crazy Tom Erfahrener User
    Hi

    du gibst mit "Zaehler = 3" ja die Anfangszelle vor
    was ist bei dir denn "Bereich"?
    eine einzelne Zelle?

    da wäre eine Beispieltabelle nicht schlecht

    MfG Tom
     
    Crazy Tom, 9. Juli 2016
    #2
  3. Fabidi Erfahrener User
    Ja genau Zähler = 3 bedeuetet, dass die Daten aus dem alten Tabellenblatt ( in dem Fall der INhalt aus Zelle c3) in die Zelle A3 des neuen Tabellenblatts kopiert wird. Als nächstes wird dann die Zelle E3 aus dem alten Tabellenblatt in die Zelle A2 des neuen kopiert. (Zähler = 3 bedeutet auch hier wieder Zeile 3 und Zieltab.Cells(Zaehler, 2) = Zelle bedeuet dann Spalte 2)

    Die Zellen im alten Tabellenblatt werden sich allerdings ganz oft ändern, weswegen die Daten im neuen Tabellenblatt untereinander einkopiert werden sollen und nicht wieder vom vorne in Zelle A1, A2 und so weiter.
     
    Fabidi, 11. Juli 2016
    #3
  4. Crazy Tom Erfahrener User

    Hilfe bei VBA

    Hi

    dann teste doch mal das hier
    Code:
    Option Explicit
    
    Sub test()
        Dim Quelltab As Worksheet
        Dim Zieltab As Worksheet
        Dim lngZiel As Long
        
        Set Quelltab = ActiveWorkbook.Worksheets("Daily Trading")
        Set Zieltab = ActiveWorkbook.Worksheets("traded FDM")
        
        With Zieltab
            lngZiel = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            If lngZiel <= 2 Then lngZiel = 3
            .Cells(lngZiel, 1) = Quelltab.Range("C3")
            .Cells(lngZiel, 2) = Quelltab.Range("E3")
            .Cells(lngZiel, 3) = Quelltab.Range("G3")
            .Cells(lngZiel, 4) = Quelltab.Range("I3")
            .Cells(lngZiel, 5) = Quelltab.Range("L3")
            .Cells(lngZiel, 6) = Quelltab.Range("N3")
            .Cells(lngZiel, 7) = Quelltab.Range("P3")
            .Cells(lngZiel, 8) = Quelltab.Range("R3")
        End With
    End Sub
    MfG Tom
     
    Crazy Tom, 11. Juli 2016
    #4
  5. Fabidi Erfahrener User
    OH Vielen Dank, hat super funktioniert und ist auch noch übersichtlicher :)

    Wenn du mir jetzt auch noch sagen könntest wieso es anfängt das in Zeile 32 und nicht Zeile 3 einzufügen, wäre ich dir sehr dankbar :)

    Vielen Dank im Voraus
     
    Fabidi, 11. Juli 2016
    #5
  6. Fabidi Erfahrener User
    Bzw. es fängt immer eine Zeile weiter unten an.
    Wenn ich beispielsweise die eine Zeile dann wieder rausnehme, also den Inhalt lösche, dann ist das nächste mal der Inhalt eine Zeile tiefer. An sich ja richtig, nur soll es ganz oben anfangen (Zeile 3).
     
    Fabidi, 11. Juli 2016
    #6
  7. Fabidi Erfahrener User
    Hat es vielleicht damit was zu tun, dass ich das als Tabelle formatiert habe?
     
    Fabidi, 11. Juli 2016
    #7
  8. Fabidi Erfahrener User

    Hilfe bei VBA

    ok hat sich alles geklärt. Lag an der formatierten Tabelle !

    Vielen Danke für deine Hilfe :)
     
    Fabidi, 11. Juli 2016
    #8
Thema:

Hilfe bei VBA

Die Seite wird geladen...
  1. Hilfe bei VBA - Similar Threads - Hilfe VBA

  2. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  3. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
  4. Automatisch aktualisierende Tabelle? Hilfe!! :-)

    in Microsoft Excel Hilfe
    Automatisch aktualisierende Tabelle? Hilfe!! :-): Hallo zusammen, ich habe da ein kleines Excel-Problem und komme einfach nicht auf die Lösung. Ich habe 25 riesige Tabellen und möchte diese in einer Tabelle zusammen, wenn eine bestimmte...
  5. Hilfe bei VBA-Programmierung

    in Microsoft Excel Hilfe
    Hilfe bei VBA-Programmierung: Hallöchen zusammen, ich bräuchte mal wieder eure Hilfe. Diesmal geht es um ein VBA-Programm bzw. -Funktion. Folgender Sachverhalt: Ich habe Rohdaten in einer Textdatei, die ich mir in Excel...
  6. VBA Hilfe für Zahlen eingeben und addieren + zellinhalt löschen

    in Microsoft Excel Hilfe
    VBA Hilfe für Zahlen eingeben und addieren + zellinhalt löschen: Hallo Leute ich brauche dringend Hilfe von einem VBA Spezialisten. Ich hoffe ihr seit mir nicht böse wenn ich sage das ich alles in der Datei beschrieben habe. Würde mich sehr freuen wenn jemand...
  7. VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen

    in Microsoft Excel Hilfe
    VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen: Hallo liebe Excel-Kommunity, nach ewigen Stunden des Suchens und Rumprobierens bin ich an dem Punkt angekommen an dem ich verzweifelt um eure Hilfe fragen muss. Da ich leider keinerlei...
  8. Benötige Hilfe zu vba

    in Microsoft Excel Hilfe
    Benötige Hilfe zu vba: Hallo zusammen, ich habe eine Herausforderung, die ich mit meinen vba-Kenntnissen nicht lösen kann. Die Problematik stelle ich per Screenshot da. Ich bedanke mich schon im Vorfeld bei Euch für...
Schlagworte:
  1. 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.
    Information ausblenden