Zeilen-Nummer eingeben und im gesamten
14.03.2021 13:08:35
Marco
ich beschäftige mich erst seit kurzem mit VBA und komme leider mit einer (hoffentlich) Kleinigkeit nicht weiter. Leider konnte ich bis jetzt nichts finden was mir geholfen hätte.
Ich habe eine Umfrage erstellt und möchte jedem Teilnehmer seine Ergebnisse in aus ausgewerteter Form (das habe ich über Formeln und bedingten Formatierungen gut hinbekommen) zukommen lassen. Dazu habe ich mir eine Excel Vorlage gebaut und möchte die Daten aus der Befragung (ein Teilnehmer je Zeile) automatisch in die Vorlage kopieren, was auch funktionier. Ich finde aber keine Lösung wie ich am einfachsten einmal die Zeilennummer (oder ähnliches) eingebe und VBA ersetzt diese dann im kompletten Code. Da in der Vorlage Überschriften und Formeln eingefügt wurden, sind die Daten in der Zeile leider nicht zusammenhängend.
Mit dem Code aktuell transportiere ich die Werte aus der Zeile in eine Spalte.
Hat jemand eine einfache Lösung?
Hier den Code den ich bis jetzt habe. Das Kopieren und Einfügen geht noch weiter, sollte aber klar sein was ich brauche.
Ich bin für jede Hilfestellung dankbar.
Betse Grüße
Marco
Code:
Sub Auswertungzumdrucken()
'Zeilenzahl definieren
'Das Tabellenbaltt Daten auswählen
Worksheets("Daten").Activate
'eventuell das Sheet immer kopieren
'Angaben1 kopieren und einfügen
Range("S8:AI8").Copy
Sheets("Druck").Range("B69").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
'Angaben2 kopieren und einfügen
Range("AJ8:AP8").Copy
Sheets("Druck").Range("B112").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub