Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 16:25:14 Salomo
NotSolved
29.09.2017 16:33:48 Mackie
NotSolved
Rot Sheets(Dst).Range("c" & N).Value = Src.Range("a" & i).Value
29.09.2017 21:24:11 Gast28586
NotSolved
29.09.2017 22:02:08 Mackie
NotSolved
05.10.2017 10:16:55 Gast97062
NotSolved
05.10.2017 10:25:58 Gast86389
NotSolved
05.10.2017 17:03:07 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast28586
Datum:
29.09.2017 21:24:11
Views:
565
Rating: Antwort:
  Ja
Thema:
Sheets(Dst).Range("c" & N).Value = Src.Range("a" & i).Value

Hi,

eine Beispieldatai könnte ich erst am Donnerstag hochladen, wenn ich wieder im Büro bin aber erklären kann ich ja versuchen. Ich schreibe mal Auszüge aus dem Code auf.

Dim N_PM As Long
Dim N As Variant
Dim LoP As Variant
Dim j As Long

...

N_PM = LastRow + 1 --> bin gerade bei der Zeile nicht sicher. Ermittelt jedenfalls die erste leere Zeile auf einem Sheet. Im fraglichen Fall ist N_PM = 4

N = "N_" & LoP(j)
        --> j ist hier die Laufvariable einer For-Schleife
        --> LoP beinhaltet an der fraglichen Stelle den String "PM"
        --> also ist N = "N_PM" --> das ist ein String und hat nichts mit der oben definierten Variable gleichen Namens zu tun (Außer der Zeichenfolge)

Jetzt kommt die genannte Codezeile

Sheets(Dst).Range("c" & N).Value = Src.Range("a" & i).Value

Frage: Welchen Typ darf die Übergabe an Range haben, also die Variable N. Durch die Zuweisung N = "N_" & LoP(j) hat N den Typ String und enthält Buchstaben ("N_PM"). Kann ich den Typ irgenwie wandeln?

Hoffe das hilft beim Verstehen, wenn nicht lege ich Donnerstag noch ein File bei (falls ich bis dahin nicht selbst ne Lösung habe.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 16:25:14 Salomo
NotSolved
29.09.2017 16:33:48 Mackie
NotSolved
Rot Sheets(Dst).Range("c" & N).Value = Src.Range("a" & i).Value
29.09.2017 21:24:11 Gast28586
NotSolved
29.09.2017 22:02:08 Mackie
NotSolved
05.10.2017 10:16:55 Gast97062
NotSolved
05.10.2017 10:25:58 Gast86389
NotSolved
05.10.2017 17:03:07 Mackie
NotSolved