Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zellen nach unten kopieren

Mehrere Zellen nach unten kopieren
10.04.2023 19:16:03
chris58

Hallo !
Jetzt hab ich noch eine Frage/ Bitte. Ich habe, wie ich gerade draufgekommen bin, in den Zeilen A1 - I1 weitere Zeilen die manchmal bis zu 12 Zeilen ausmachen. Also von A1-I12. Kann man diese Felder die ich benötige in einem Schwung ab A20 reinkopieren lassen ?
Wenn das ginge, würde ich mir jede Menge an Arbeit ersparen.

Das ganz hat den Hintergrund, da meine Bank nur mehr in CSV downloaden läßt und ich alle Daten seit langer Zeit in Money gespeichert habe und dies fortsetzen will. Ich wandle die Dateien dann mit xl2qif in eine .mny Datei um, damit ich diese dann in Money speicher kann. Daher "murkse" ich seit 4 Tage an einer Lösung herum.
Danke für die Hilfe

Hier die Datei:
https://www.herber.de/bbs/user/158652.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen nach unten kopieren
10.04.2023 22:54:21
onur
" in den Zeilen A1 - I1 weitere Zeilen die manchmal bis zu 12 Zeilen" ???
Es gibt keine ZEILEN A1-I1 - das sind höchstens ZELLEN.
Ausserdem solltest du mal in der Beispielsdatei zeigen, WIE es nachher aussehen soll.


AW: Mehrere Zellen nach unten kopieren
11.04.2023 08:45:23
chris58
Hallo !
Die Beispieldatei ist angehänt. Auf den Button "Aufteilen" drücken, dann wird in Zeile 20 genau die Daten hinkopiert, welche ich für die Umwandlung benötige.
Das was ich brauche ist, das nicht nur eine Buchung dort steht, sondern ab Zeile 20 die gesamten Buchungen aufgelistet werden (also wenn es 2 sind, dann Zeile 20 die erste Buchung, Zeile 21 die zweite Buchung usw.).
Danke fürs Ansehen und danke, falls wer eine Lösung hätte.
lg chris58


Anzeige
AW: Mehrere Zellen nach unten kopieren
11.04.2023 09:18:14
hary
Moin
Daann noch eine Schleife fuer die zeilen 2 bis 19.
Sub ProtokollSichern()
Dim i As Long, ii As Long
Const NewConstSheet As String = "Umsatz"
Dim bfound As Boolean
Dim sMerk As String
Dim sMaxZeile As Long
Dim TB As Worksheet
Application.ScreenUpdating = False
  'Prüfen ob Tabelle NewConstSheet schon angelegt ist
  For i = 1 To ActiveWorkbook.Sheets.Count
    If ActiveWorkbook.Sheets(i).Name = NewConstSheet Then
      bfound = True
      Exit For
    End If
  Next i
    'wenn nicht dann anlegen
    If bfound = False Then
      sMerk = ActiveWorkbook.ActiveSheet.Name
      ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
      ActiveWorkbook.ActiveSheet.Name = NewConstSheet
      ActiveWorkbook.Sheets(sMerk).Activate
    End If
      Set TB = ActiveWorkbook.Sheets(NewConstSheet)
        For ii = 2 To TB.Cells(20, 1).End(xlUp).Row
          'nächste leere Zeile ermitteln
          sMaxZeile = Application.Max(20, TB.Cells(TB.Rows.Count, 1).End(xlUp).Row + 1)
          'Daten in neue Tabelle übertragen
          TB.Cells(sMaxZeile, 1) = ActiveWorkbook.ActiveSheet.Cells(ii, 3)
          TB.Cells(sMaxZeile, 3) = ActiveWorkbook.ActiveSheet.Cells(ii, 9)
          TB.Cells(sMaxZeile, 8) = ActiveWorkbook.ActiveSheet.Cells(ii, 8)
        Next ii
Application.ScreenUpdating = True
End Sub
gruss hary


Anzeige
AW: Mehrere Zellen nach unten kopieren
11.04.2023 10:39:07
chris58
Hallo hary !
Danke für Deine Hilfe. Passt haargenau, wie ich es brauche.
lg


Zelle Markieren wenn Datum
11.04.2023 10:52:07
chris58
Nochmals danke für die Hilfe.
Eine letzte Hilfe wäre nötig.
Ich habe mit dem Makrorekorder dieses Makro aufgezeichnet. Jedoch würde mir helfen, wenn das Makro die Zellen A20 - A... markiert, wenn dort ein Datum steht.
Wie kann man das dem Excel sagen ?
Hier der bescheidene Code von mir:

Sub markieren()
    Range("A20:A21").Select
End Sub
Danke
chris


AW: Zelle Markieren wenn Datum
11.04.2023 11:04:50
hary
Moin
Du hast doch in den anderen Codes schon die "Zutaten".
Range(Cells(20, 1), Cells(Rows.Count, 1).End(xlUp)).Select
Evtl. musst du Range und Cells das betreffende Blatt zuweisen.
Select braucht es aber nicht in allen Faellen.
gruss hary


Anzeige
AW: Zelle Markieren wenn Datum
11.04.2023 12:30:45
chris58
Hallo hary !
Herzlichen Dank für Deine Hilfe. Das passt nun punktgenau. Hoffe es bleibt so, wenn ich es in Echt ausprobieren kann.
Jedenfalls nochmals danke
chris

309 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
2
4
4
3
6
2
5
2
3
3
4
18
1
4
2
1
4
5
3
5
2
5
2