Hallo,
ich hoffe Ihr könnt mir helfen. Ich suche schon seit wochen in allen möglichen Foren für eine Lösung meines Problems. Ich bin in der beziehung ein absoluter Laie.
Ich möchte ein Kassenbuch mit Excel schreiben. Bin auch schon fast bis zum Ende angekommen.
Jetzt mein Problem:
Mein Kassenbuch hat die Spalten A - F = Datum, Konto, Beleg, Text, Einnahme, Ausgabe. Der Kontenplan verfügt über 93 Konten, die aber nicht alle immer jedes Jahr verwendet werden. Weiter sind die 93 Tabellenblätter vorhanden, deren Namen die 93 Kontonummern sind.
Jetzt möchte ich, das Zeilen mit gleicher Kontonummer in ein anderes Tabellenblatt , z.B. alle mit Kontonummer 6000 in die neue Seite 6000 kopiert werden,damit eine Kontenübersicht erstellt wird.
Ich habe hier etwas ähnliches gefunden, weiss aber nicht, wie ich das abändern muss, um es für mich zu verwenden.
Option Explicit
Sub Verschieben()
Dim lngRow As Long
Dim lngFirstRow As Long
Application.ScreenUpdating = False
For lngRow = Sheets("agenda").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row To 4 Step -1
If LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("a") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("awerte").Cells(Sheets("awerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
ElseIf LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("s") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("swerte").Cells(Sheets("swerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
ElseIf LCase(Sheets("agenda").Cells(lngRow, 2)) = LCase("i") Then
Sheets("agenda").Rows(lngRow).Copy
Sheets("iwerte").Cells(Sheets("iwerte").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("agenda").Rows(lngRow).Delete Shift:=xlUp
End If
Next lngRow
End Sub
Ich habe eine kleine Vorstellung:
Etwa "agenda" in "Kassenbuch"
"a", "s" und "i" in die Kontonummern ändern und gegebenenfalls um die weiteren Nummern erweitern.
Was ist mit "Copy Sheets("awerte")".
Vieleicht in "Copy Sheets("6000werte")
Bitte helft mir, was muss ich ändern,um es für mich zu verwenden?
Ich bin LKW-Fahrer. Da kann es vorkommen, das ich mich erst wieder am nächsten WE wieder melden kann. Ich versuch aber mein möglichstes zu tun.
Vielen Dank im voraus.
