Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datenübertragung in anderes Tabellenblatt

Datenübertragung in anderes Tabellenblatt
Uwe
Guten Morgen zusammen,
mit nachfoldem Code übertrage ich Daten von einem Tabellenblatt (hier "TVöD") in eine Gesamtübersicht (hier "Zeitdaten"):
Sub Datenübertragung()
'Zeilen werden von 5 bis 35 durchlaufen
For i = 5 To 35
'Wenn eine 1 in Spalte H also Urlaub...
If Sheets("TVöD").Cells(i, 8).Value = "1" Then
'dann ein U in Spalte D in Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
Sheets("Zeitdaten").Cells(i + 1, 4).Value = "U"
'Wenn eine 1 in Spalte J also Krankheit...
ElseIf Sheets("TVöD").Cells(i, 10).Value = "1" Then
'dann ein K in Spalte D imn Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
Sheets("Zeitdaten").Cells(i + 1, 4).Value = "K"
End If
Next
End Sub
Mein Problem ist nunmehr aber, das es diesen Code zu ergänzen gilt. Sofern in den Spalten K bis M, also in den Spalten 11 bis 13, Stunden eingetragen sind, soll die Summe dieser Stunden ebenso im Blatt Zeitdaten ausgegeben werden.
Wie üblich... MEINE Probleme via VBA zu rechnen.
Bin für Eure Hilfe sehr, sehr dankbar.
Uwe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datenübertragung in anderes Tabellenblatt
24.10.2009 18:43:23
Beni
Hallo Uwe,
der sheetsname mit set Sheets("TVöD") deklarieren.
Gruss Beni
Sub Datenübertragung()
'Zeilen werden von 5 bis 35 durchlaufen
Set ws1 = Sheets("TVöD")
Set ws2 = Sheets("Zeitdaten")
For i = 5 To 35
'Wenn eine 1 in Spalte H also Urlaub...
If ws1.Cells(i, 8).Value = "1" Then
'dann ein U in Spalte D in Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
ws2.Cells(i + 1, 4).Value = "U"
'Wenn eine 1 in Spalte J also Krankheit...
ElseIf ws1.Cells(i, 10).Value = "1" Then
'dann ein K in Spalte D imn Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
ws2.Cells(i + 1, 4).Value = "K"
End If
If WorksheetFunction.Sum(Range(ws1.Cells(i, 11), ws1.Cells(i, 13))) > 0 Then
ws2.Cells(i + 1, 10) = WorksheetFunction.Sum(Range(ws1.Cells(i, 11), ws1.Cells(i, 13)))
End If
Next
End Sub

Anzeige
AW: Datenübertragung in anderes Tabellenblatt
25.10.2009 10:13:41
Uwe
Hey Beni,
Deine Lösung war PERFEKT. Mal abgesehen von einem kleinen, vielleicht von Dir "eingebauten" Fehler mal abgesehen, funktioniert`s jetzt wie gewünscht. Und hier scheint`s mir ebenso gelungen zu sein, diesen Code nun gänzlich zu "durchschauen"
Vielen, vielen Dank!
Uwe

323 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige