Office: Excelsheet

Helfe beim Thema Excelsheet in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, mein Vorschlag: - nachstehendes Makro im VBE unter DieseArbeitsmappe einfügen - und dein entsprechendes Makro aus Rechnung entfernen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Walpet, 3. Dezember 2020.

Seite 2 von 3

ALOYS78

aloys78

Excelsheet

Hallo,

mein Vorschlag:
- nachstehendes Makro im VBE unter DieseArbeitsmappe einfügen
- und dein entsprechendes Makro aus Rechnung entfernen

Wirkungsweise
- beim Aktivieren eines Blattes wird geprüft, ob es ein Monatsblatt ist,
- in diesem Fall startet eine Abfrage, ob gedruckt werden soll

Code:

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wsZiel As Worksheet
Dim a As Long
Dim Zeile As Long, lztZeileQuelle As Long
Dim Msg, Style, Title, Response
Msg = "Sollen die Daten in die Rechnung kopiert werden ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Rechnung erstellen"

Select Case Sh.Name
Case Is = "Rechnung", "Zeiterfassung" ' alle Nicht-Monatsblätter
' keine Aktion

Case Else ' alle Monats-Blätter
Set wsZiel = Worksheets("Rechnung")
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then Exit Sub ' Nicht rrucken

With Sh.UsedRange
'Letzte Zeilen-Nr. des benutzten Bereiches im Quellarbeitsblatt
lztZeileQuelle = .Row + .Rows.Count - 1
End With

a = 27
Application.ScreenUpdating = False
For Zeile = 1 To lztZeileQuelle
With Sh
If .Cells(Zeile, "J").Value = "x" Then
wsZiel.Cells(Zeile + a, "A").Value = .Cells(Zeile, "A").Value
wsZiel.Cells(Zeile + a, "B").Value = .Cells(Zeile, "B").Value
wsZiel.Cells(Zeile + a, "C").Value = .Cells(Zeile, "C").Value
wsZiel.Cells(Zeile + a, "D").Value = .Cells(Zeile, "D").Value
wsZiel.Cells(Zeile + a, "E").Value = .Cells(Zeile, "G").Value
wsZiel.Cells(Zeile + a, "F").Value = .Cells(Zeile, "L").Value
End If
End With
Next Zeile
End Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78, 6. Dezember 2020

#16
WALPET

Walpet

von aloys78

Hallo,

mein Vorschlag:
- nachstehendes Makro im VBE unter DieseArbeitsmappe einfügen
- und dein entsprechendes Makro aus Rechnung entfernen

Wirkungsweise
- beim Aktivieren eines Blattes wird geprüft, ob es ein Monatsblatt ist,
- in diesem Fall startet eine Abfrage, ob gedruckt werden soll

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wsZiel As Worksheet
Dim a As Long
Dim Zeile As Long, lztZeileQuelle As Long
Dim Msg, Style, Title, Response
Msg = "Sollen die Daten in die Rechnung kopiert werden ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Rechnung erstellen"

Select Case Sh.Name
Case Is = "Rechnung", "Zeiterfassung" ' alle Nicht-Monatsblätter
' keine Aktion

Case Else ' alle Monats-Blätter
Set wsZiel = Worksheets("Rechnung")
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then Exit Sub ' Nicht rrucken

With Sh.UsedRange
'Letzte Zeilen-Nr. des benutzten Bereiches im Quellarbeitsblatt
lztZeileQuelle = .Row + .Rows.Count - 1
End With

a = 27
Application.ScreenUpdating = False
For Zeile = 1 To lztZeileQuelle
With Sh
If .Cells(Zeile, "J").Value = "x" Then
wsZiel.Cells(Zeile + a, "A").Value = .Cells(Zeile, "A").Value
wsZiel.Cells(Zeile + a, "B").Value = .Cells(Zeile, "B").Value
wsZiel.Cells(Zeile + a, "C").Value = .Cells(Zeile, "C").Value
wsZiel.Cells(Zeile + a, "D").Value = .Cells(Zeile, "D").Value
wsZiel.Cells(Zeile + a, "E").Value = .Cells(Zeile, "G").Value
wsZiel.Cells(Zeile + a, "F").Value = .Cells(Zeile, "L").Value
End If
End With
Next Zeile
End Select
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke, funktioniert soweit Tip Top.
Es sollte nur so sein, dass nur dann, wenn ich das Tabellenblatt Rechnung auswähle, die Msg Box mit der Frage erscheint.
Jetzt ist es so, dass wenn ich in ein anderes Tabellenblatt umschalte, jedes Mal die Msg erscheint. Kannst du das ändern? Vielen Dank*Smilie

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#17
SCOREFUN

Scorefun

Du verstehst den Code also nicht?

Scorefun, 6. Dezember 2020

#18
WALPET

Walpet

Excelsheet

von Scorefun

Du verstehst den Code also nicht?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soweit schon.
Es soll so sein, dass ich die entsprechenden Zeilen im jeweiligen Monatsblatt in der Spalte J mit einem X auswähle die dann in das Blatt Rechnung kopiert werden. Danach werden diese ausgedruckt.

Wenn ich zwischen einem Monatsblatt wechsle, soll nichts geschehen.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#19
WALPET

Walpet

von Scorefun

Du verstehst den Code also nicht?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soweit schon.
Es soll so sein, dass ich die entsprechenden Zeilen im jeweiligen Monatsblatt in der Spalte J mit einem X auswähle die dann in das Blatt Rechnung kopiert werden. Danach werden diese ausgedruckt.

Wenn ich zwischen einem Monatsblatt wechsle, soll nichts geschehen.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#20
ALOYS78

aloys78

Hallo Walpet,

Es soll so sein, dass ich die entsprechenden Zeilen im jeweiligen Monatsblatt in der Spalte J mit einem X auswähle die dann in das Blatt Rechnung kopiert werden. Danach werden diese ausgedruckt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.
Und woher soll Excel wissen, das alle X eingegeben wurden und die Zeilen nun kopiert werden können?
Zum Beispiel per Button - aber dann in jedem Monatsblatt!

Andere Möglichkeit: in Rechnung eine Zelle Datenüberprüfung einrichten, die eine Auswahl aller Monatsblätter erlaubt.

Oder Dir fällt noch etwas Eleganteres ein!

aloys78, 6. Dezember 2020

#21
FLOTTER FEGER

Flotter Feger

Hallo Aloys,

siehe #9 ... warum ignoriert mich nur heute jeder ?

Sabina

Flotter Feger, 6. Dezember 2020

#22
WALPET

Walpet

Excelsheet

von Walpet

Soweit schon.
Es soll so sein, dass ich die entsprechenden Zeilen im jeweiligen Monatsblatt in der Spalte J mit einem X auswähle die dann in das Blatt Rechnung kopiert werden. Danach werden diese ausgedruckt.

Wenn ich zwischen einem Monatsblatt wechsle, soll nichts geschehen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich werde jeweils die x danach wieder von Hand löschen wenn von diesen die Rechnung gemacht ist.

Am elegantesten wäre das natürlich über einen Button, oder direkt im Code.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#23
ALOYS78

aloys78

\@Sabina,

siehe #9 ... warum ignoriert mich nur heute jeder ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dich ignorieren - wie käme ich denn dazu?

Wenn Du Dir zB den Dezember anschaust, dann werden ggf mehrere Zellen angekreuzt. Und nach dem Ausdruck werden die Kreuze wieder gelöscht. Daher habe ich das Change-Ereignis ausgeschlossen.

aloys78, 6. Dezember 2020

#24
ALOYS78

aloys78

Hallo Walpet,

Ich werde jeweils die x danach wieder von Hand löschen wenn von diesen die Rechnung gemacht ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das nehme ich also Erweiterung der Aufgabenstellung zur Kenntnis.

Wobei Du immer noch nicht auf meine Vorschläge eingegangen bist, wie der Kopiervorgang zum Blatt Rechnung ausgelöst werden soll.

aloys78, 6. Dezember 2020

#25
WALPET

Walpet

von aloys78

Hallo Walpet,

Das nehme ich also Erweiterung der Aufgabenstellung zur Kenntnis.

Wobei Du immer noch nicht auf meine Vorschläge eingegangen bist, wie der Kopiervorgang zum Blatt Rechnung ausgelöst werden soll.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dein Vorschlag:
Ich denke über einen Button in jedem Monatsblatt

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#26
ALOYS78

aloys78

Hallo,

dann wie folgt vorgehen:
1. den bisher vorgeschlagenen Code aus DieseArbeitsmappe entfernen.

2. in jedem Monatsblatt einen Button einrichten
Code:

Private Sub CommandButton1_Click()
Call Daten_kopieren(ActiveSheet)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

3. neuen Modul einfügen und dort den nachstehenden Code reinkopieren
Code:

Option Explicit

Sub Daten_kopieren(ByVal Sh As Object)
Dim wsZiel As Worksheet
Dim a As Long
Dim Zeile As Long, lztZeileQuelle As Long

Set wsZiel = Worksheets("Rechnung")
With Sh.UsedRange
'Letzte Zeilen-Nr. des benutzten Bereiches im Quellarbeitsblatt
lztZeileQuelle = .Row + .Rows.Count - 1
End With

a = 27
Application.ScreenUpdating = False
For Zeile = 1 To lztZeileQuelle
With Sh
If .Cells(Zeile, "J").Value = "x" Then
wsZiel.Cells(Zeile + a, "A").Value = .Cells(Zeile, "A").Value
wsZiel.Cells(Zeile + a, "B").Value = .Cells(Zeile, "B").Value
wsZiel.Cells(Zeile + a, "C").Value = .Cells(Zeile, "C").Value
wsZiel.Cells(Zeile + a, "D").Value = .Cells(Zeile, "D").Value
wsZiel.Cells(Zeile + a, "E").Value = .Cells(Zeile, "G").Value
wsZiel.Cells(Zeile + a, "F").Value = .Cells(Zeile, "L").Value
End If
End With
Next Zeile
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

GGf könnte man in dieser Prozedur am Schluss auch die "x" entfernen.

aloys78, 6. Dezember 2020

#27
WALPET

Walpet

Excelsheet

von aloys78

Hallo,

dann wie folgt vorgehen:
1. den bisher vorgeschlagenen Code aus DieseArbeitsmappe entfernen.

2. in jedem Monatsblatt einen Button einrichten
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub CommandButton1_Click()
Call Daten_kopieren(ActiveSheet)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

3. neuen Modul einfügen und dort den nachstehenden Code reinkopieren
Code:

Option Explicit

Sub Daten_kopieren(ByVal Sh As Object)
Dim wsZiel As Worksheet
Dim a As Long
Dim Zeile As Long, lztZeileQuelle As Long

Set wsZiel = Worksheets("Rechnung")
With Sh.UsedRange
'Letzte Zeilen-Nr. des benutzten Bereiches im Quellarbeitsblatt
lztZeileQuelle = .Row + .Rows.Count - 1
End With

a = 27
Application.ScreenUpdating = False
For Zeile = 1 To lztZeileQuelle
With Sh
If .Cells(Zeile, "J").Value = "x" Then
wsZiel.Cells(Zeile + a, "A").Value = .Cells(Zeile, "A").Value
wsZiel.Cells(Zeile + a, "B").Value = .Cells(Zeile, "B").Value
wsZiel.Cells(Zeile + a, "C").Value = .Cells(Zeile, "C").Value
wsZiel.Cells(Zeile + a, "D").Value = .Cells(Zeile, "D").Value
wsZiel.Cells(Zeile + a, "E").Value = .Cells(Zeile, "G").Value
wsZiel.Cells(Zeile + a, "F").Value = .Cells(Zeile, "L").Value
End If
End With
Next Zeile
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

GGf könnte man in dieser Prozedur am Schluss auch die "x" entfernen.

Danke vielmals*Smilie Funktioniert super!!
Wie müsste man den Code ergänzen um am Schluss die "X" zu entfernen? Das wäre sicherlich noch hilfreich. Danke!!!

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Walpet, 6. Dezember 2020

#28
SCOREFUN

Scorefun

.Cells(Zeile, "J").Value = ""

am Ende vor dem End If ?

Scorefun, 6. Dezember 2020

#29
ALOYS78

aloys78

Hallo Walpet,

Funktioniert super!!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das freut mich!

Wie müsste man den Code ergänzen um am Schluss die "X" zu entfernen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Siehe Beitrag von Scorefun!

Solltest Du noch Fragen haben, dann melde Dich. Ansonsten kannst Du dieses Thema dann schließen.

aloys78, 6. Dezember 2020

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Excelsheet

Die Seite wird geladen...

Excelsheet - Similar Threads - Excelsheet
Excelsheet unsichtbar kopieren
in Microsoft Excel Hilfe
Excelsheet unsichtbar kopieren: Hallo Liebe Excelfreunde, 1) ich speicher meine Mappe mit ActiveWorkbook.SaveCopyAs "Pfad" Auf dieses Laufwerk haben aber nicht alle User Zugriff. Wie kann ich vermeiden, dass der Debugger sich...
Mehrere Sheetsinhalte in eine Auswertungstabelle (Datei!) zur Berechnung importieren.
in Microsoft Excel Hilfe
Mehrere Sheetsinhalte in eine Auswertungstabelle (Datei!) zur Berechnung importieren.: Hallo liebe Office-Helfer und Excel-Spezis :-) Ich habe nun folgenden Auftrag von meinem Chef bekommen und habe keine Ahnung wie ich das ganze gebacken bekomme ;-'(: \\ Gegebenheiten: 1-...
mit Hilfe von VBA Excelsheet zusammenfassen
in Microsoft Excel Hilfe
mit Hilfe von VBA Excelsheet zusammenfassen: Hallo, ich habe ungefähr 4 variable Listen in verschiedenen Sheets einer Arbeitsmappe. Ich möchte, dass bei jedem Start eine Liste aus den 4en gebildet wird. Wie mache ich das? Danke im...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden