Zeile kopieren mit Bedingung?

Guten Morgen zusammen,

ich möchte gerne folgendes mit einem Marko lösen.

In einer Daten Tabelle sind sämtliche Werte vorhanden. Diese sollen in ein Tabellenblatt Tabelle 2 kopiert werden.

Bild zum Beitrag

Die letzte Zeile bestimme ich über

' Bestimmung der Anzahl der ausgefüllten Zellen in Spalte 3

Sheets("DATEN").Select

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row

Nun möchte ich folgendes in Tabelle2 umsetzten.

Daten Spalte B soll nach Tabelle2 Spalte C kopiert werden

Daten Spalte C soll nach Tabelle2 Spalte D kopiert werden

Daten Spalte D soll nach Tabelle2 Spalte E kopiert werden

Nun soll in Spalte F eine Unterscheidung stattfinden,

Wenn in Spalte D eine 1 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte F kopiert werden

Wenn in Spalte D eine 0 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte G kopiert werden

Bild zum Beitrag

Wie könnte dieses mit einem Makro realisiert werden?

Vielen Dank für euere Unterstützung.

Tobias

1 Antwort

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

20.12.2023, 18:13

Die Letzte Zeile zu kennen ist da nicht wichtig

  'Beginne bei Spalte 2 = B und ende bei 4 = D. Ersetze "Ziel" und "Quelle" mit den deinem Blattnamen.

  For i = 2 To 4
    Worksheets("Ziel").Range(Worksheets("Ziel").Cells(1, Spalte + 1), Worksheets("Ziel").Cells(1000000, Spalte + 1)) = _
    Worksheets("Quelle").Range(Worksheets("Quelle").Cells(1, Spalte), Worksheets("Quelle").Cells(1000000, Spalte))
  Next i

Hallo!

Ich habe eine Excel-Datei mit Finanzen und möchte, dass von Tabelle 1 (Hauptkonto) die kompletten Zeilen automatisch nach Tabelle 2 übertragen werden, die in Spalte G eine bestimme Zahlenreihe (z.B. 1234) enthalten.

Mit =WENN bin ich da nicht weiter gekommen und habe auch Probleme damit, dass in Tabelle 2 Leerzeilen entstehen, wo ich in Tabelle 1 nicht die gewünschte Zahlenreihe eingesetzt habe (Also Tabelle 2 teilweise erst 15 Zeilen weiter unten wieder einsetzt).

Ich hoffe mir kann jemand helfen!

...zur Frage

Duplikate ganze Zeile entfernen - Excel?

Hallo,
ich möchte gerne Duplikate aus einer Excel Tabelle entfernen. Gibt es die Möglichkeit in bspw. Spalte A nach Duplikaten zu suchen, ich möchte dann aber immer die gesamte Zeile entfernen, wo das Duplikat vorkommt.
Ist das möglich?

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

VBA Makro Excel Letzte beschriebene Zeile vor Leerzeile, weitere Leerzeile einfügen

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

...zur Frage

Excel: Wenn Wert in Zelle WAHR, dann Entsprechung in Matrix suchen?

Hallo zusammen,

ich habe eine Excel-Liste mit Personen. In Spalte A sind die Personalnummern, in Spalte T wird ausgegeben, ob eine Schwerbehinderung vorliegt. Dies bezieht sich auf ein separates Arbeitsblatt, in welchem Personaldaten mit schwerbehinderten Beschäftigten enthalten sind (Spalte A = Personalnummer). Diese Rückmeldung klappt; hierbei wird einfach geschaut ob die Personalnummer aus Spalte A auch in Spalte A in dem separaten Arbeitsblatt vorkommt. Wenn jemand eine Schwerbehinderung hat, so erscheint "WAHR" in der jeweiligen Zelle in Spalte T.

In Spalte U soll nun ausgegeben werden, ob eine Erwerbsminderungsrente vorliegt. Dies ist i.d.R. nur bei Schwerbehinderten der Fall, sodass hier wieder auf das separate Arbeitsblatt Bezug genommen werden soll.

Es soll also in der Formel für Spalte U die Bedingung gelten, dass wenn in der jeweiligen Zelle in Spalte T "WAHR" steht, dann soll in dem separaten Arbeitsblatt in der dazugehörigen Zeile mit der entsprechenden Personalnummer auf Spalte R verwiesen werden. In Spalte R des separaten Arbeitsblattes ist mit "WAHR" (liegt vor) und "FALSCH" (liegt nicht vor) hinterlegt, ob eine Erwerbsminderungsrente vorliegt.

Gewünscht ist auch ein Verweis auf Spalte S im separaten Arbeitsblatt, wo das Datum hinterlegt ist, wie lange die Rente geht.

Ich probiere seit Ewigkeiten rum, aber kriege es mit einer Formel nicht abgebildet.
Kann jemand helfen? Im Voraus vielen Dank.

...zur Frage

Mit welcher Formel kann man Daten aus einer Excel-Tabelle (Suchkriterium in Spalte und Zeile) in ein anderes Datenblatt übertragen?

Hallo zusammen,

ich habe folgendes Problem: In einem Excel-Datenblatt habe ich in der Spalte A das jeweilige Datum und in den Spalten B, C, D... die Werte für die Zeiträume (0-4 Uhr; 4-8 Uhr, ...). Die Zeiträume stehen dabei als "Überschrift" über den jeweiligen Werten für die Zeiträume, sodass letztendlich eine Matrix-Tabelle entsteht, wodurch für jeden Tag und jedes Zeitfenster ein Wert zugeordnet werden kann.

Hier mal ein Ausschnitt meiner Tabelle:

In einem anderen Datenblatt gibt es jetzt eine Spalte für das Datum und eine Spalte für die Zeiträume, also z.B. in Spalte A (01.01.2020) und in Spalte B (0-4 Uhr). Ich benötige jetzt die Werte der Zeiträume (also hier die weißen Zellen) im zweiten Datenblatt in Spalte C. Wie kann ich das machen? Am besten über eine Formel "automatisieren"?

Ich bräuchte hierfür eine Formel, in der ich in Spalte A das richtige Datum "finde" und gleichzeitig das richtige Zeitfenster in den Zeilen. Ich habe das ganze über einen SVerweis versucht, aber da ich erstens zwei Suchkriterien habe (nämlich Datum und Zeit) und die Suchkriterien ja nicht in einer Zeile sondern in einer Zeile und Spalte stehen, bekomm ich das irgendwie nicht hin.

Kann mir hierbei irgendjemand weiterhelfen?

...zur Frage

Google-Sheets... Zellbezug aus zwei Zellen zusammensetzen?

Hallo zusammen - ich suche mich dumm und dämlich:

Ich habe eine Sheets-Liste von Fußballspielern. In den aufsteigenden Spalten schreibe ich immer die aktuellen Werte rein, je Zeile ein Spieler... Beispiel: Spieler MÜLLER in Zeile 6. In F6 will ich immer seinen aktuellen Wert. Die Werte beginnen bei J6, K6, usw. Ein Update alle 3 Monate.

Jetzt will ich, dass die Zelle F6 immer den aktuellesten (letzten) Wert wiedergibt.

Ich hatte 2 Ideen.

1) Die Zeile von J6 nach ganz hinten markieren und mit irgendeiner Funktion: "Gib mir immer den letzten Wert wieder" --> nicht hinbekommen

2) Ich mache mir ein Bezugs-Arbeitsblatt auf in dem ich die "aktuelle Spalte", z.B. M, angebe. Dazu nummeriere ich die Zeilen in Spalte A von 1 bis 100 --> Und fülle somit die "AKTUELL" Zelle F6 mit der Formel: "Nimm dir die aktuelle Spalte aus dem BEZUG-Arbeitsblatt + deine Zeilennummer (Spalte A) und erstelle so (z.B.) den Zellbezug M6

Puh. Ideen? :-)

...zur Frage

Excel, Userform: Datum aus Textbox wird in der Zelle nicht als Datum erkannt?

Ich habe folgenden Code:

Private Sub Fertig_Click()

Dim last As Integer

last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

...zur Frage

Excel Farbig Markierte Zellen in andere Tabelle Übertragen?

Hallo,

Ich kenne mich nicht als zu gut mit Excel aus. Deswegen brauche ich ein wenig Hilfe!

Ich möchte das Farbig Markierte Zellen der Ausschlaggebende Punkt ist das alles aus der Zeile in ein anderes Tabellenblatt kopiert wird.

Hier einmal in Bilder um es verständlicher zu machen:

Bsp. SP ist Grün gefärbt und gibt Somit an das SP gemacht werden muss.

Nun soll alles aus Zeile 3 von Spalte C-I(i) in das folgende Blatt eingefügt werden.

So das bei Marke, Model, etc. das eingefügt wird was in dem anderem Blatt steht.

Ich hoffe das war verständlich, wenn nicht, bitte ich um Rückfragen.

Vielen Dank im vor raus.

Mit freundlichen Grüßen

Lucas

...zur Frage

Excel Höchstwert bei doppelten Werten anzeigen/filtern?

Hallo zusammen,

ich würde gern eine Formel oder Formatierung hinterlegen, die mir vom jeweiligen Wert in Spalte A den höchsten zugehörigen Wert in Spalte B herausfiltert oder markiert.

Also es müsste quasi zuerst die Prüfung auf doppelte Werte in Spalte A erfolgen und dann zu den (im Hintergrund) herausgefilterten Zeilen die Zeile mit dem höchsten Wert in Spalte B markiert oder herausgefiltert werden.

Das ganze möglichst ohne, dass bestimmte Werte in Spalte A konkret gefiltert werden müssen, da der Fall, in dem ich das anwenden will, über 18.000 VK betrifft und ich keine 18.000 Formeln hinterlegen möchte 😅

Es müssten quasi in diesem Beispiel als Ergebnis Zeile 3, 8 und 12 als Höchstwert zum jeweiligen VK ausgegeben/markiert werden.

Hat jemand eine Idee?

VG Peggy

...zur Frage

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zur Frage

Excel Formel in tatsächlichen Wert umformen?

Ich habe ein Programm geschrieben, bei dem ich die Werte einer Excel Tabelle, bzw. Spalte einlesen und automatisch in Word Dokument eintragen lasse, jedoch wird am Ende immer z.B. "=SUMME(A575+1)" anstatt "95,00" Euro eingetragen.

Um das Problem zu lösen, muss ich alle Werte der Tabelle tatsächlich eingeben, so wie sie da stehen, aber das ist zu aufwendig. Gibt es einen Weg alle Zellen, die mit einer Formel berechnet werden, direkt als Ergebnis auszugeben in eine andere oder die selbe Zelle?

Hoffe man hat mein Problem verstanden...

...zur Frage

Google Sheets - wenn Dropdown-Auswahl, dann eine Zelle kopieren?

Hallo,

ich möchte, dass per Befehl die linke und mittlere Spalte der oberen Tabelle in die untere Tabelle kopiert werden, sobald ich in der Dropdown-Liste "Saving" anwähle.

Wie schreibe ich diesen Befehl?/Funktioniert das überhaupt?

...zur Frage

Excel Zellen zählen mit welcher Bedingung?

Moin!
Ich habe eine excel Tabelle in der ich aus Spalte F leere Zellen zählen möchte aber nur wenn in Spalte B ein Wert zwischen 0 und 32 eingetragen ist. Wie kann ich das realisieren?
Danke im Voraus!

MfG

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen