Zum Inhalt springen
View in the app

A better way to browse. Learn more.
Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

VBA: einfügen ab teile 570

Gast Koma9
Gast Koma9
in Delphi/RPG+CL/Sonstige

Empfohlene Antworten

es geht, keine frage aber er soll das nicht ab zeile a570 einfügen sondern ab zeile a57. kann mir jmd helfen?

'Datum kopieren

Worksheets("Schichtmeld").Activate 'Aktiviert 1. Datei

Worksheets("Schichtmeld").Range("B" + CStr(7 + lfdnr)).Select 'Wählt die zellen mit dem Datum aus

Selection.Copy 'kopiert sie

Workbooks("Stückzahlen.xls").Worksheets("csv").Activate 'aktiviert die ziel tabelle

Range("a57" + CStr(lfdnr * 4 - 3) + ":a57" + CStr(lfdnr * 4)).Select 'wählt bereich indem datum eingetragen werden soll

ActiveSheet.Paste 'fügt datum ein

Workbooks("Stückzahlen.xls").Worksheets("csv").Range("a" + CStr(lfdnr * 4 - 3) + ":a" + CStr(lfdnr * 4)).NumberFormat = "yyyy-mm-dd" 'in vier Zellen untereinander

Hi,

Versuchs mal so:

Range("a"+Cstr(57 + (lfdnr * 4 - 3))+ ":a"+Cstr(57 + (lfdnr * 4)).Select

Dein Fehler lag darin, dass Du zwei Strings verknüpft hast, und nicht die Laufende Nummer zu 57 dazu addiert.

BSP:

"57"+Cstr(1) = "571"

Cstr(57+1) = 58

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Zur Themenliste gehen

Konto

Navigation

Suchen

Suchen

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.