Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
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
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren wenn

Zeilen kopieren wenn
04.04.2018 09:38:33
And
Hallo Excel-Freunde,
ich weiß, dieses Thema kommt sehr häufig.. dennoch habe ich nach ewiger Suche immer noch keine Lösung gefunden (...liegt wahrscheinlich auch an meinen nicht vorhandenen VBA-Kenntnissen).
Ich habe folgendes Problem.
Mein Tabellenblatt "Data" wird aus einer externen Quelle gefüllt. Hier steht in Spalte A eine 1, wenn ein Datensatz in der Quelle vorhanden ist, ansonsten "-".
Nun möchte ich, dass die Spalten B:AZ automatisch mit allen Formeln herunterkopiert werden, für alle Zeilen in denen eine 1 steht.
Kann mir jemand bei der Lösung helfen?
Vielen Dank!
Freundliche Grüße
André

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: so wie Du schreibst ...
04.04.2018 09:53:33
...
Hallo André,
... und ich es interpretiere, kannst Du Deine vorhandenen Formeln doch einfach nach unten ziehend kopieren. Geht sogar mit nur einem Mausklick, wenn in Deinem Ergebnisdatenblatt Spalte A die "1"en und "-" stehen.
Gruß Werner
.. , - ...
AW: so wie Du schreibst ...
04.04.2018 09:59:42
And
Hallo Werner,
das geht an sich natürlich auch. Problem ist, dass die Datensätze sehr stark variieren (mal 10.000, mal nur 100). Da andere Personen mit der Liste arbeiten, hätte ich daher gerne eine VBA-Lösung, damit niemand etwas vergisst/ falsch macht.
Trotzdem Danke für den Vorschlag.
Gruß
André
AW: VBA-Lösung gesucht, thread offen owT
04.04.2018 10:03:32
...
Gruß Werner
.. , - ...
Anzeige
AW: VBA-Lösung gesucht, thread offen owT
04.04.2018 10:42:25
UweD
Hallo
ist die 1 als echte Zahl oder als Text formatiert?
LG UweD
AW: VBA-Lösung gesucht, thread offen owT
04.04.2018 11:11:33
And
Hallo Uwe, die 1 ist als echte Zahl formatiert
AW: VBA-Lösung gesucht, thread offen owT
04.04.2018 11:26:31
UweD
Hallo
so per Schleife
Sub Makro2()
    Dim Z, EZ As Integer
    
    EZ = 2 'Zeile mit Formel zum Kopieren 
    
    With Sheets("Data")
        If WorksheetFunction.Count(.Columns(1)) > 0 Then
            For Each Z In .Columns(1).SpecialCells(xlCellTypeConstants, 1)
                Z.Offset(0, 1).Resize(1, 51).FormulaR1C1 = .Cells(EZ, 2).Resize(1, 51).FormulaR1C1
            Next
            
        Else
            MsgBox "Keine Zeilen mit 1 vorhanden"
        
        End If
    End With
End Sub

LG UweD
Anzeige
AW: VBA-Lösung gesucht, thread offen owT
04.04.2018 13:10:07
And
Hallo Uwe,
vielen Dank! Ich werde den Code gleich testen.
LG
Andre

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige