Hallo noch einmal.
Ich habe an meinem eigenen Formular noch ein wenig rumgebastelt.
Wenn ich nun nicht aus der Eingabe A3:F3 meine Daten in die Ergebnis-Liste A4:F4 übertragen möchte, sondern aus beispielsweise Daten aus A3, B5, C8, D12, E5 u. F8..
Die Ergebnisliste wäre aber A4:F4..Wie würde das Makro dann aussehen ? Wie gesagt nicht nacheinanderfolgende Zellen wie A3:F3.
Danke..
Hi
Ein Beispielcode dazu wäre der.
Code:
Public Sub Übertragen()
Dim j As Long
j = Sheets("Ergebnis").Cells(Rows.Count, 1).End(xlUp).Row + 1
'alle einzeln Zuordnen
Sheets("Ergebnis").Range("A" & j) = Sheets("Eingabe").Range("A3").Value
Sheets("Ergebnis").Range("B" & j) = Sheets("Eingabe").Range("B5").Value
Sheets("Ergebnis").Range("C" & j) = Sheets("Eingabe").Range("C8").Value
Sheets("Ergebnis").Range("D" & j) = Sheets("Eingabe").Range("D12").Value
Sheets("Ergebnis").Range("E" & j) = Sheets("Eingabe").Range("E5").Value
Sheets("Ergebnis").Range("F" & j) = Sheets("Eingabe").Range("F8").Value
'wenn gewollt dann so leeren
Sheets("Eingabe").Range("A3").ClearContents
Sheets("Eingabe").Range("B5").ClearContents
End Sub
Gruß Elex
Hallo Elex,
Ich habe nun Dein geschriebenes Makro auf meine Tabelle angewendet.
So richtig funktioniert es bei mir noch nicht.
Wo steht denn, dass die 1. Eingabe/Übertragung (aus 'Eingabe' A3 (Klasse) beispielsweise bei A4 (Blatt 'Ergebnis' - Klasse) beginnen soll??
Es muss ja etwas mit dem "j" zu tun haben.
j = Sheets ("Ergebnis").Cells (Rows.Count, 1).End (x1Up).Row + 1
Gruß Markus
Hier hast Du mal meine Tabelle.
Auf dem Laufzettel sollen die Ergebnisse eingetragen werden und dann in die Tabelle Ergebnisse übertragen werden.
Irgendwie funktioniert das nicht richtig.
Danke
Hallo
Excel ist wundervoll zum Arbeiten, aber auch manchmal "pingelig" wie eine Frau.
(Schuhe abputzen!) In dem Fall völlig zu Recht!!
Der Code funktioniert einwandfrei brachte mich aber auch ins Grübeln. Vermutete zuerst Problem mit Verbundenen Zellen! Aber Nein ...
Das Blatt hat
aktiven Blattschutz, vermutlich wegen den Formeln. Aber
Spalte A ist nicht zum bearbeiten freigegeben. Laufzeitfehler!
Kleine Fehler mit grosser Wirkung .... Frohe Weihnachten aus Ankara.
mfg Gast 123
Hier noch eine verkürzte Version, weniger Schreibarbeit: (d.h., ich bin faul)
Code:
Public Sub Übertragen()
Dim j As Long
j = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
'alle einzeln Zuordnen
With Worksheets(1)
Worksheets(2).Range("B" & j) = .Range("B7").Value
Worksheets(2).Range("A" & j) = .Range("G7").Value
Worksheets(2).Range("C" & j) = .Range("C14").Value
Worksheets(2).Range("F" & j) = .Range("F14").Value
Worksheets(2).Range("I" & j) = .Range("I14").Value
Worksheets(2).Range("L" & j) = .Range("C21").Value
Worksheets(2).Range("O" & j) = .Range("F21").Value
Worksheets(2).Range("R" & j) = .Range("I21").Value
Worksheets(2).Range("U" & j) = .Range("C28").Value
End With
End Sub