Hallo,
ich lese mit i = ActiveCell.Row ein und gebe dann auf einen anderen Tabellenblatt die benötigten daten wieder aus.
Soweit ist das auch keine schwierigkeit. Aber wie komme ich an die Daten wenn 2 Zeilen markiert werden?
Oder wie kann ich wenn eine oder zwei Zeilen markiert sind, bestimmte Felder in Variabel Speichern?
Z.b. Wenn Zeile 5+6 markiert sind, will ich die Felder B,E,F in eine Variabel packen.
Bisher sieht es für eine markierte Zeile so aus:
Mfg
ich lese mit i = ActiveCell.Row ein und gebe dann auf einen anderen Tabellenblatt die benötigten daten wieder aus.
Soweit ist das auch keine schwierigkeit. Aber wie komme ich an die Daten wenn 2 Zeilen markiert werden?
Oder wie kann ich wenn eine oder zwei Zeilen markiert sind, bestimmte Felder in Variabel Speichern?
Z.b. Wenn Zeile 5+6 markiert sind, will ich die Felder B,E,F in eine Variabel packen.
Bisher sieht es für eine markierte Zeile so aus:
Code:
Sub drucken()
' drucken Makro
'Fensterflacker abschalten
Application.ScreenUpdating = False
'um die aktuelle Zeile zu ermitteln
i = ActiveCell.Row
'Die Variabeln in HR einfügen
Sheets("hr").Range("B8").Value = Cells(i, 2)
Sheets("hr").Range("d8").Value = Cells(i, 6)
Sheets("hr").Range("e8").Value = Cells(i, 10)
'Wenn SM ausgefüllt ist die SM durch ein O austauschen.
If Cells(i, 8) <> "" Then
Sheets("hr").Range("c8") = "O"
Else
Sheets("hr").Range("c8") = ""
End If
End Sub
Mfg
Zuletzt bearbeitet: