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?
Ach, kann man durch eine if, then schleife erkennen lassen ob eine oder
zwei Zeilen markiert sind und jeweils ein anderes Tabellenblatt
ausfüllen lassen.
Tabellenblatt "HR" wenn eine Zeile markiert ist und
Tabellenblatt "GHR" wenn 2 Zeilen markiert sind.
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?
Ach, kann man durch eine if, then schleife erkennen lassen ob eine oder
zwei Zeilen markiert sind und jeweils ein anderes Tabellenblatt
ausfüllen lassen.
Tabellenblatt "HR" wenn eine Zeile markiert ist und
Tabellenblatt "GHR" wenn 2 Zeilen markiert sind.
Bisher sieht es für eine markierte Zeile so aus:
Visual Basic-Quellcode
- 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