VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Range Copy mi Variablen	01.03.2021 13:23:50	Philipp T.
Range Copy mi Variablen	01.03.2021 13:43:15	Werner
Range Copy mi Variablen	01.03.2021 13:49:09	Gast81455
Range Copy mi Variablen	01.03.2021 14:21:43	Werner
Range Copy mi Variablen	01.03.2021 15:32:13	Philipp T.
Range Copy mi Variablen	01.03.2021 15:32:14	Philipp T.
Range Copy mi Variablen	01.03.2021 15:36:02	Mase
Range Copy mi Variablen	01.03.2021 16:26:12	Werner

Ansicht des Beitrags:

Von:
Gast81455

Datum:
01.03.2021 13:49:09

Views:
608

Rating:

Antwort:

Thema:
Range Copy mi Variablen

Entschuldigung, ich muss zugeben, dass der Beitrage/Frage von meiner seite aus ein wenig zu Hemdsärmelig angegangen wurde.

Vielen dank für die ehrliche Nachricht.

Hier nochaml eine ausführlichere Veriosn.

Sub PDF()


Dim LastRowName As Integer
Dim B As Integer
Dim i As Integer
Dim LastRowSort As Integer
Dim LastRowFeiertag As Integer
Dim LastRowArbeitsstundenUndNacht As Integer
Dim LastrowSamstagsstunden As Integer
Dim LastrowSonntagsstunden As Integer
Dim LastRowSchichtführer As Integer
Dim LastRowPDF As Integer



Sheets(3).Rows("1:200").RowHeight = 10



LastRowName = Tabelle2.Range("A" & Rows.Count).End(xlUp).Row




B = 2


LastRowArbeitsstundenUndNacht = Sheets(B + 10).Range("M" & Rows.Count).End(xlUp).Row
LastrowSamstagsstunden = Sheets(B + 10).Range("Y" & Rows.Count).End(xlUp).Row
LastRowFeiertag = Sheets(B + 10).Range("AK" & Rows.Count).End(xlUp).Row
LastRowFeiertag = Sheets(B + 10).Range("AW" & Rows.Count).End(xlUp).Row
LastRowSchichtführer = Sheets(B + 10).Range("BI" & Rows.Count).End(xlUp).Row




LastRowPDF = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row




''Normalstunden
Sheets(B + 10).Range(Cells(2, 13), Cells(LastRowArbeitsstundenUndNacht, 23)).Copy Sheets(3).Cells(LastRowPDF, 1).Value

LastRowPDF = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row


End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Range Copy mi Variablen	01.03.2021 13:23:50	Philipp T.
Range Copy mi Variablen	01.03.2021 13:43:15	Werner
Range Copy mi Variablen	01.03.2021 13:49:09	Gast81455
Range Copy mi Variablen	01.03.2021 14:21:43	Werner
Range Copy mi Variablen	01.03.2021 15:32:13	Philipp T.
Range Copy mi Variablen	01.03.2021 15:32:14	Philipp T.
Range Copy mi Variablen	01.03.2021 15:36:02	Mase
Range Copy mi Variablen	01.03.2021 16:26:12	Werner