Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 20:19:48
Formatierung bei Zelländerung
03.10.2025 18:57:58
Ersatz für PrettyCode.Print
03.10.2025 12:02:13
leere Zeilen nicht drucken (trotz Kontrollkästchen)
02.10.2025 16:19:53
Explodierende ActiveX-Steuerelemente
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einen Wert in mehreren Sheets finden und die Zeilen kopieren

Forumthread: einen Wert in mehreren Sheets finden und die Zeilen kopieren

einen Wert in mehreren Sheets finden und die Zeilen kopieren
22.08.2024 00:17:06
Ringberger
Hallo,

ich habe ein Problem ein Makro zu schreiben, an dem bisher nicht nur ich verzweifelt bin.
Excel wird verwendet um ein Kassenbuch zu führen. Die Arbeitsmappe besteht aus mehreren Tabellenblättern. Unter anderem für jeden Kalendermonat eines. Dann weitere Tabellenblätter für verschiedene Auswertungen. Eines davon für den Splittbuchungsbeleg. Die Monatsblätter (Tabelle1 - Tabelle12) sind erst einmal identisch aufgebaut. In Spalte C, von Zeile 4 bis maximal 93 sind alle Buchungen durchlaufend nummeriert. Es existiert also für jede Buchung eine lfd. Nummer nur einmal. Außer bei Splittbuchungen, dort hat jede dazu gehörige Buchung die selbe lfd. Nummer.
Und das ist das Ziel: Im Splittbuchungsbeleg wird die zu suchende lfd. Nummer eingetragen. Nach dem Klick auf die Schaltfläche "Beleg aktualisieren", soll Excel NUR die Tabellen 1 bis 12 durchsuchen und die gefundenen Zeilen, mit der entsprechenden lfd. Nummer, ins Tabellenblatt "Splittbuchungsbeleg" kopieren.
Ich habe mit der Funktion "If" begonnen, um die einzelnen Stück für Stück zu durchsuchen, mit Angabe der Spalte ("C4:C93") und Find_(what....) mit Angabe der Zelle, in der der zu suchende Wert steht. Ergänzt durch LookAt:=xlWhole damit nur der eingetragene Wert gesucht wird.
Da kommt dann die erste Fehlermeldung: "Erwartet wird End If". Dieses ist aber im Sub eingetragen. Nun wissen wir nicht mehr weiter.
Bisher mussten wir diese Einträge von Hand ausführen, also alles doppelt schreiben. Übers Jahr gesehen ein ganz schöner Mehraufwand. Deswegen hätten wir das gerne automatisiert.
Können Sie uns da helfen?

Mit freundlichem Gruß

Ringberger
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einen Wert in mehreren Sheets finden und die Zeilen kopieren
22.08.2024 00:38:09
ralf_b
am besten wäre hier eine Beispieldatei mit dem identischen Aufbau wie das Original.
" end if erwartet" tritt auch auf wenn du dazwischen eine for schleife nicht geschlossen hast oder wenn andere Befehle nicht sauber abgeschlossen wurden.
ein einzeiliges IF then kann hier auch ursächlich sein oder eine offene with klammer.
zeig mal das Makro.
Anzeige
auf verdacht
22.08.2024 02:42:29
ralf_b
hier was zum basteln 

Sub holebelegnrdaten()

    Dim splitSheet As Worksheet, i&, belegnr$, firstAddress$, rngfund As Range

    

    ' Setzt das Ziel-Arbeitsblatt

    Set splitSheet = ThisWorkbook.Worksheets("Splittbuchungsbeleg")

    

    belegnr = "334blabla"

     

    For i = 1 To 12

        With ThisWorkbook.Worksheets("Tabelle" & i)

       

            Set rngfund = .Range("C4:C93").Find(what:=belegnr, LookIn:=xlValues, lookat:=xlWhole)

            If Not rngfund Is Nothing Then

                firstAddress = rngfund.Address

                Do

                    rngfund.EntireRow.Copy splitSheet.Range("A" & splitSheet.Rows.Count).End(xlUp).Offset(1, 0)

           

                    Set rngfund = .Range("C4:C93").FindNext(rngfund)

                Loop While Not rngfund Is Nothing And rngfund.Address > firstAddress

           

            End If

                  

        End With

    Next

End Sub
Anzeige
AW: auf verdacht
23.08.2024 11:03:43
Ringberger
Hallo Ralf,

erst einmal tausend Dank für die superschnelle Antwort. Hier habe ich eine Beispieldatei hoch geladen.

https://www.herber.de/bbs/user/171786.xlsx

Ich habe in dem Makro nur die Quelle für Belegnummer angepasst und den Namen des Tabellenblattes für die Splittbuchung auf "SBeleg" eingekürzt. Die Tabellenblätter für November und Dezember musste ich wieder löschen wegen der Dateigröße.
Als Fehlermeldung bekomme ich noch "Objekt erforderlich". Da weiß ich aber nicht mehr weiter.

VG und Danke

Andreas
Anzeige
AW: auf verdacht
23.08.2024 12:30:51
ralf_b
da kann ich nur mutmaßen, da deine Beispieldatei nicht das Original widerspiegelt. Es befindet sich kein Makro darin und diverse Formeln zeigen auf andere Dateien. Das kommt vom Kopieren.
Ich schätze das es eines der Worksheets Tabelle1 bis Tabelle12 nicht gibt oder sie etwas anders geschrieben sind. Objekte im Code Blätter(Worksheet) und Zellbereiche(Range)
Da solltest du suchen. Achte auf Leerzeichen vor oder hinter den Namen. z.b. "Tabelle1 " oder Worksheets(" SBeleg ")

Anzeige
AW: auf verdacht
25.08.2024 21:49:22
Ringberger
ich habe zwei Einträge in rot gefunden. Da fehlten beim Namen ("Beleg) am Ende die Anführungszeichen. Das habe ich korrigiert. Aber kein Erfolg. Mehr Fehler habe ich anhand der Tipps nicht gefunden. Ich hätte auch gerne ein Beispiel der kompletten Arbeitsmappe hochgeladen. Aber sie ist wie gesagt ziemlich umfangreich, 38 Tabellenblätter mit ca. 2,8 MB.
Anzeige
AW: auf verdacht
26.08.2024 22:56:54
ralf_b
vielleicht sind ja nicht alle Blätter in der Beispieldatei notwendig und auch nicht mit allen Datenzeilen.
Wichtig: die für den Code wichtigen Daten sollten vorhanden sein und der Fehler auftreten.
AW: auf verdacht
06.09.2024 13:40:24
Ringberger
Hallo Ralf,
es sind alle Blätter in der Datei notwendig. In den Tabellenblättern 1 - 12 sind nur die Datenzeilen 4 bis 93 relevant (Range("C4:C93")). Gefunden werden soll mit dem Befehl 


Find(what:=SBeleg.Range("V4"), LookIn:=xlValues, lookat:=xlWhole)

Das Zielarbeitsblatt ist "SBeleg" Range"A60".
Von den gefundenen Zeilen (immer mindestens zwei, können auch mehr sein, mehr als fünf nicht zu erwarten) sind für den SBeleg nicht alle Spalten notwendig.
Relevant sind nur die Spalten:
B = Datum
C = Belegnr.
D = Geldkonto Nr.
E = Sachkonto Nr.
F = Textfeld
G = Geldbetrag Einnahme
H = Geldbetrag Ausgabe.
Die Zeilen mit der identischen Belegnr. sind dann, quasi als Zwischenablage, in den Bereich ab A60 zu kopieren. Von will ich die Werte mit der entsprechenden Formatierung in die Zielzellen holen.
Ich bitte Sie inständig sich der Sache noch einmal anzunehmen. Unseren ehrenamtlichen Kassierern würde da sehr geholfen. Wenn es nicht klappt, dann muss es halt weiter manuell ausgefüllt werden. Ich würde gerne die Mustedatei schicken, aber die ist ja zu groß.

Danke

Anzeige
AW: auf verdacht
06.09.2024 22:45:21
ralf_b
ralf_b(at)wolke7(dot)net
die klammerausdrücke ersetzen. schick mir die Datei.
der Thread ist schon im Archiv. Hast dir ja ne Menge Zeit gelassen.
AW: auf verdacht
07.09.2024 11:28:05
Ringberger
Hallo Ralf,

ich habe hier, mit Hilfe ähnlicher Vorlagen das folgende Makro zu bauen. Erhalte aber nur die Meldung "Objekt erforderlich". Hilft mir jedoch nicht weiter. 


Sub Datenzeilen_kopieren()

    Dim Zeile As Long

    Dim ZeileMax As Long

    Dim n As Long

    Dim SplitSheet As Worksheet, i&, belegnr$

    

    Range("A60:G67").ClearContents

    

    'Setzt das Ziel-Arbeitsblatt

    Set SplitSheet = ThisWorkbook.Worksheets("SBeleg")

    

    belegnr = SBeleg.Range("V4")

    

    For i = 1 To 12

        With ThisWorkbook.Worksheets("Tabelle" & i)

        ZeileMax = UsedRange.Rows.Count

        n = 60

        

        For Zeile = 4 To ZeileMax

        If .Cells("C4:C93").Value = belegnr Then

        .Rows(Zeile).Copy Destination:=SplitSheet.Rows(n)

        n = n + 1

        

        End If

        Next Zeile

        End With

    Next

End Sub
Anzeige
AW: auf verdacht
07.09.2024 22:22:09
ralf_b
wenn jetzt nicht geht, dann mußt du jemand Anderes fragen.
der Code sollte in ein allgemeines Modul ausgelagert werden. Die Blattbezüge funktionieren trotzdem. 
Option Explicit



Sub Datenzeilen_kopieren()

    Dim Zeile As Long

    Dim n As Long

    Dim SplitSheet As Worksheet, i&, belegnr$

    Dim datasheet As Worksheet

    'Setzt das Ziel-Arbeitsblatt

    Set SplitSheet = ThisWorkbook.Worksheets("SBeleg")

    

    SplitSheet.Range("A60:G67").ClearContents

    

    belegnr = SplitSheet.Range("V4")

    n = 60

    For i = 1 To 12

      On Error Resume Next

      'wie heisst die Tabelle ?? Tabelle01 oder Tabelle1 oder 01

      'hier wird 01 verwendet

      Set datasheet = ThisWorkbook.Worksheets(Format(i, "00"))

        If Err = 0 Then

            With datasheet

                For Zeile = 4 To .UsedRange.Rows.Count

                    If .Cells(Zeile, "C").Value = belegnr Then

                       .Cells(Zeile, 2).Resize(1, 7).Copy

                        SplitSheet.Cells(n, 1).PasteSpecial xlPasteValuesAndNumberFormats

                        n = n + 1

                    End If

                Next Zeile

            End With

        Else

         Err.Clear

         MsgBox "Arbeitsblatt '" & Format(i, "00") & "' existiert nicht"

        End If

    Next

End Sub
Anzeige
AW: auf verdacht
08.09.2024 00:37:55
Ringberger
Hallo Ralf,

es funktioniert. Danke, danke, danke. Kann man sich da ein bisschen erkenntlich zeigen. Würde ich gerne tun.

VG

Andreas
AW: auf verdacht
08.09.2024 10:13:48
ralf_b
erkenntlich zeigen geht immer.
meine email hast du ja schon.
;

Forumthreads zu verwandten Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Konkatinieren : kopieren funktioniert nicht
stelud

Hallo,
in Spalte E will ich eine Konkatinierung der Spalten A - D haben - dies löse ich wie folgt :
=$A$1&$B$1&$C$1&$D$1
Ergebnis eine Zeile :
A B C D E
1 2 3 4 1234
wenn ich aber nun diese Formel in Zeile2 kopiere, wird der Index nic...
04.11.2008 09:10:59
Thread-ID: 1021470
3 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Nur markierte Zellen verarbeiten
MaxKuba

Hallo Excel Spezialisten
könnt Ihr mir bitte helfen diesen Code so umzuwandeln das nur bei den markierten Zellen die Formel ifserror eingefügt wird?
Sub NA_raus() Dim rng As Range, cell As Range, fmla As String Set rng = Cells.SpecialCells(xlCellTypeFormulas, 16) For Each cell In rng fm...
21.04.2010 10:35:12
Thread-ID: 1153059
16 Beiträge
nur freigegebene Zellen kopieren
Stefan

Hallo Zusammen,
habe ein kleines Problem...
Möchte gerne aus einer Alten XLS eine Spalte 8 in die neue XLS übernehmen.
Bringt mir jedoch eine Fehlermeldung.
Grund: es gibt in der Spalte einige Zeilen die schreibgeschützt sind.
Wie kann ich nur die nicht gesperrten Zellen kop...
10.08.2010 09:04:57
Thread-ID: 1171356
5 Beiträge
Markierte Zellen kopieren
Dieter

Hallo.
Leider komme ich bei meiner Recherche im Internet nicht weiter. Vielleicht kann mir hier jemand meine Frage beantworten.
Ich habe eine Tabelle mit 2 Spalten. Spalte A1 = Gruppe , darunter sind 4 zellen mit Daten (Gr 1, Gr 2, usw.)
Spalte B1= Jahr, darunter sind 4 Zellen mit...
30.05.2011 23:56:19
Thread-ID: 1216754
4 Beiträge
Quelle kopieren nur in sichtbare Zielzellen ....
Stephan

Hallo Profis,
habe folgendes Problem:
möchte Zelleninhalte felxibel von einer Tabelle1 (sichbar Zellen) in eine andere Tabelle2 (sichbare Zellen) kopieren.
Beispiel:
C1=Apfel nach Tabelle2.A11
C2=Baum nach Tabelle2.A12
C...
08.12.2011 16:52:18
Thread-ID: 1241194
4 Beiträge
Bestimmte sichtbare Zellen kopieren
Thomas

Hallo zusammen,
ich habe mich dank so mancher Hinweise und Lösungen im Forum bei Excel gut durchgekämpft.
Nun suche ich eine Lösung mittels VBA um nur bestimmte sichtbaren Zeilen zu kopieren.
Ich verwende Sub xx() Range("B6:H10000").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy...
21.03.2012 12:42:39
Thread-ID: 1255891
3 Beiträge
Werte nur in Markierten Zellen ändern
Valeri

Hallo ihr Allwissenden,
mit folgendem Code ändere ich markierte Zellen:
Sub Zelle_Urlaub_rot() Application.ScreenUpdating = False Dim c As Range For Each c In Selection If Not (IsEmpty(c)) Then c.FormulaR1C1 = "U" c.Interior.Color = 255 End If Next c Application.ScreenUpdating = True En...
13.08.2012 08:49:38
Thread-ID: 1274803
6 Beiträge
Werte aus Clipboard; nur von ausgewählten Zellen
ausgewählten

Hallo Herberfans.
Aktuell versuche ich die Werte markierter und in die Zwischenablage kopierter Zellen auszulesen.
Das Grundprinzip funktioniert recht einfach, siehe Code weiter unten. Damit werden die Werte aus der Zwischenablage in die Textvariable übertragen. Für zusammenhängende Ber...
10.10.2012 11:58:25
Thread-ID: 1281301
3 Beiträge
Nur auf sichtbare Zeilen/Zellen reagieren
Ron

Hallo Allerseits
In meinem Excel habe ich einen Aufbau gewählt, der eine Darstellung von Titeln und Informationen beinhaltet.
Einige Zeilen sind dabei ausgeblendet, da sie in diesem Moment nicht benötigt werden.
Jetzt möchte ich für eine Formatierung der aktuellen Anzeige "sichtbare...
30.11.2012 08:59:58
Thread-ID: 1288667
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige