Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Select verzichten

Forumthread: Select verzichten

Select verzichten
15.11.2020 14:29:10
Mani
Guten Tag ,
kurze Anfänger frage.
Wie verzichte ich auf das Select
Sheets("Settings").Select
Range("G" & LetzteZeile).Value = wbImport.Name
Range("G" & LetzteZeile).Offset(0, 1).Value = Date + 1
Range("G" & LetzteZeile).Offset(0, 2).Value = Application.UserName
Sheets("Neu").Select
Ich würde gern Daten ins Tabellenblatt Settings schreiben ohne es zu aktivieren.
Vielen Dank
Viele Grüße
der Mani
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Select verzichten
15.11.2020 14:47:34
JoWE
Hallo,
versuch es mal so:
    With Sheets("Settings")
.Range("G" & LetzteZeile).Value = wbImport.Name
.Range("G" & LetzteZeile).Offset(0, 1).Value = Date + 1
.Range("G" & LetzteZeile).Offset(0, 2).Value = Application.UserName
End With
Gruß
Jochen
Anzeige
AW: Select verzichten,
15.11.2020 14:52:03
Daniel
Das kann man auch noch weiter kürzen, wenn nicht noch andere Zellen auf diesem Blatt bearbeitet werden müssen:
With Sheets("Settings").Range("G" & LetzteZeile)
.Value = wbImport.Name
.Offset(0, 1).Value = Date + 1
.Offset(0, 2).Value = Application.UserName
End With
Gruß Daniel
Anzeige
AW: Select verzichten,
15.11.2020 14:54:18
Mani
Vielen Dank
Viele Grüße
der Mani
AW: Select verzichten,
15.11.2020 15:10:08
GerdL
Moin
Sheets("Settings").Range("G" & LetzteZeile).Resize(1, 3) = Array(wbImport.Name, Date + 1, Application.UserName)

Gruß Gerd
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18