Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.05.2024 16:30:40
prüfen ob Verzeichnis in Sharepoint vorhanden
03.05.2024 15:00:19
MAX & WENN kombinieren ?
03.05.2024 14:23:54
Finden-Funktion ohne Suchen INNERHALB Strings
03.05.2024 13:31:36
Spaltenbereich wenn Buchstabe "F" vorhanden...
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile ohne erste Spalte kopieren+for sch

Zeile ohne erste Spalte kopieren+for sch
21.04.2023 15:35:28
Helga

Hallo zusammen,
ich würde gern aus einer Datei mit dem for schleife eine Zeile finden und dann kopieren, aber ohne erste zelle und dann in die andere datei als spalte hinzufügen. Bisher habe ich das gemacht, aber weiter komme ich leider nicht.


Sub Function()
Dim Zelle As Range

For Each Zelle In Workbooks("Works1.xslx").Worksheets("A1").Range("A27:A35")
If Zelle.Value = "April" Then
Worksheets("A1").Offset(, 1).End(xlToRight).Copy _
Workbooks("Works2.xlsx").Worksheets("AA").Range("E" & ).PasteSpecial, Transpose:=True
Application.CutCopyMode = False

End If
Next Zelle
End Sub


Gibt es hierzu eine einfache Lösung?
Vorab vielen Dank!
Gruß
Helga

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile ohne erste Spalte kopieren+for sch
21.04.2023 18:51:55
ralf_b
leider ist mir deine Aufgabe nicht gänzlich klar.
die Worksheetsbezeichnung sieht eher nach einer Spaltenbezeichnung aus.
Hier wäre nochmal anzumerken das man Dateiname.Arbeitsblattname.Zellbezug als Referent zusammensetzen sollte.
Du hast in deiner Variante den Zellbezug entweder vergessen oder als Blattname(Worksheets("A1")) verwendet. Das wären noch genauere Infos nötig.

Sub copyZeile()
    Dim Zelle As Range
    Dim lcol As Long
    Dim lrow As Long
    
    lcol = Workbooks("Works1.xslx").Worksheets("A1").Cells(1, 1).End(xlToLeft).Column
    
    For Each Zelle In Workbooks("Works1.xslx").Worksheets("A1").Range("A27:A35")
        If Zelle.Value = "April" Then
            Zelle.Offset(, 1).Resize(1, lcol - 1).Copy
            With Workbooks("Works2.xlsx").Worksheets("AA")
                lrow = .Range("E1").End(xlUp).Row
                .Range("E" & lrow + 1).PasteSpecial , Transpose:=True
            End With
            Application.CutCopyMode = False
        End If
    Next Zelle
End Sub


Anzeige
AW: Zeile ohne erste Spalte kopieren+for sch
24.04.2023 11:44:30
Helga
Danke für die Hilfe und sorry für die Unklarheit. Jetzt bei mir gibt es nur eine Fehlermeldung "VBA-Fehler 1004 – Anwendungs- oder objektdefinierter Fehler"
Zeile : "Zelle.Offset(, 1).Resize(1, lcol - 1).Copy" wird gelb matkiert


AW: Zeile ohne erste Spalte kopieren+for sch
24.04.2023 19:09:54
ralf_b
Workbooks("Works1.xslx").Worksheets("A1").Cells(1, 1)
steht denn irgendwas in Zeile 1 des Blattes A1 der Mappe Works1?
wenn nicht ,dann ist lcol evtl. 1 und lcol -1 ergibt 0. Das könnte bei Resize den Fehler erzeugen.
Zelle.Offset(, 1).Resize(1, lcol - 1)

lcol soll die letzte benutzte Spaltennummer beinhalten. Evtl .Cells(1,1) auf eine brauchbare Zeilennummer anpassen z.b. 26 oder 27

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige