in meinem Tabellenblatt habe ich in Tabelle 1 einige Automarken aufgelistet, mit Datum und Uhrzeit für eine Probefahrt.
In Tabelle 3 habe ich eine Datumszelle. Je nach Datum wird das entsprechende Auto ausgewählt und aufgelistet.
Soweit so gut, bis hier klappt es.
Jetzt möchte ich aber in Tabelle 3 die Uhrzeit und Dauer der Probefahrt ändern und dies in Tabelle1 übernehmen, also rückkopieren.
Das ganze anhand der lfd Nr.
Hat da wer einen Tip für mich ?
Hier das Makro, anbei die ganze Tabelle.
Danke
Sub test()
'Arbeitsvorgang 1
Worksheets("tabelle3").Select
Range("A8").Select
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 8
For i = 8 To 300
With Worksheets("Tabelle1")
If .Cells(i, "D") = Worksheets("Tabelle3").Range("B3") Then
'Ziel time conflict = kommt aus All time in ??
Worksheets("Tabelle3").Cells(a, 1).Value = Worksheets("Tabelle1").Cells(i, 1).Value
Worksheets("Tabelle3").Cells(a, 2).Value = Worksheets("Tabelle1").Cells(i, 2).Value
Worksheets("Tabelle3").Cells(a, 3).Value = Worksheets("Tabelle1").Cells(i, 3).Value
Worksheets("Tabelle3").Cells(a, 4).Value = Worksheets("Tabelle1").Cells(i, 5).Value
Worksheets("Tabelle3").Cells(a, 5).Value = Worksheets("Tabelle1").Cells(i, 6).Value
a = a + 1
Else
End If
End With
Next i
Application.ScreenUpdating = True
01.02.2018, 11:18 (Dieser Beitrag wurde zuletzt bearbeitet: 01.02.2018, 11:24 von Wastl.)
Hi,
dein Anhang hat die Endung .xlsm
Das haben wir nicht so gerne, da könnte alles mögliche drin sein, das meinen PC versaut.
Drum hänge doch bitte eine .xlsx an, wo doch der Code schon im Beitrag steht.
Dann traut man sich eher deine Datei zu laden und öffnen.
Danke im Voraus
PS:
Gute Programmierung zeichnet sich unter anderem dadurch aus, das man kein Unruhiges Fenster hat auch ohne screenupdating=false
Und hier, in dem dargestellten Code ist es völlig unsinnig.
Kannst sowohl das Einschalten als auch das Ausschalten auskommentieren
01.02.2018, 18:48 (Dieser Beitrag wurde zuletzt bearbeitet: 01.02.2018, 18:48 von RPP63.)
(01.02.2018, 11:18)Wastl schrieb: Hi,
dein Anhang hat die Endung .xlsm
Das haben wir nicht so gerne, da könnte alles mögliche drin sein, das meinen PC versaut.
Moin Wastl!
Paranoia? Und wer ist wir?
Als Helfer wissen wir uns doch wohl wirksam zu schützen, oder nicht?
Die vorsorgliche Deaktivierung von Makros gehört natürlich dazu.
Ein Screenshot ist imo viel gefährlicher, weshalb die hiesigen Mods dies auch konsequenterweise nur erlauben, wenn hier im Forum hochgeladen wird (obschon ein Screenshot allgemein nicht gern gesehen wird).
Ich erwarte, da diese Paranoia ja stetig um sich greift, mal einen konkreten Link, in dem die destruktive Art einer .xlsm beschrieben wird.
Und Nein! nix mit kill oder Formatierung …
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Und noch ein Zusatz:
Ihr verbreitet Angst vor Makros, dies ist eines Fachforums nicht würdig!
Ansonsten schlage ich vor (nicht Ernst gemeint) den Upload der "bösen" Datei-Endungen gleich ganz zu verbieten.
Also incl. .xlsb und .xltm
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
(01.02.2018, 18:55)RPP63 schrieb: Ihr verbreitet Angst vor Makros, dies ist eines Fachforums nicht würdig!
Ansonsten schlage ich vor (nicht Ernst gemeint) den Upload der "bösen" Datei-Endungen gleich ganz zu verbieten.
Also incl. .xlsb und .xltm
... und .xls! Das wäre tatsächlich zu überlegen. Und wer sind "Ihr"?
(01.02.2018, 18:59)Kuwer schrieb: Und wer sind "Ihr"?
Es greift ja um sich, deshalb der Plural, ich wollte Wastl ja auch nicht persönlich "angreifen".
Mein "ihr" bezog sich allerdings konkret auf sein "wir".
Ja, mir ist klar, dass ins off topic abgeglitten wird, aber so etwas muss ein Forum aushalten.
Hast Du eine konkrete Gefährdungslage parat, Uwe?
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
