Tabelle hin / herschieben

[Wexel]

Hallo zusammen,

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
 
End Sub

[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

[Wexel]

Hi,

ah ok, habe ich nicht drüber nachgedacht. Danke für den Hinweis

[Wexel]

keiner hier im Forum einen Ansatz ??

[RPP63]

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

[RPP63]

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

[Kuwer]

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"?

Gruß Uwe

[RPP63]

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

[Kuwer]

Hast Du eine konkrete Gefährdungslage parat, Uwe?

nein, habe ich nicht.

Gruß Uwe

[Helvetier]

keiner hier im Forum einen Ansatz ??

Wieso soll ich denn? Diese Anfrage hast Du noch nicht abgeschlossen: http://www.clever-excel-forum.de/thread-...age-2.html