Thema Datum  Von Nutzer Rating
Antwort
05.02.2022 12:09:55 Twice
NotSolved
05.02.2022 13:29:24 Gast22571
Solved
05.02.2022 13:56:14 Twice
NotSolved
Blau Makro mit Selected Cell Value ausführen
 05.02.2022 14:44:11 Gast80607
Solved
05.02.2022 15:34:44 Twice
NotSolved
05.02.2022 16:18:14 Gast32957
NotSolved

Ansicht des Beitrags:
Von:
Gast80607		 Datum:
05.02.2022 14:44:11		 Views:
810		 Rating:
     
Antwort:
 Nein
Thema:
Makro mit Selected Cell Value ausführen

nun habe ich das Problem, wenn sich das Makro 5 mal wiederholen soll, Lagere ich 5 mal den selben Platz ein.

Weil du die Suche immer wieder von vorn beginnst - siehe Range.Find Doku.

Die Aktive Zelle bleibt nicht z.B R8 sonder springt in die Zelle inder ich den Wert aus R8 einfüge.

Mit ActiveCell bzw. Select / Activate arbeitet man in der Regel auch nicht.

Ein Benutzer muss Dinge auswählen um dem Computer mitzuteilen was er möchte; ein Computer / Makro braucht nichts 'visuell' auszuwählen.

 

Ändern wir das also mal:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  Dim rngCell As Excel.Range
   
  Set rngCell = Worksheets("Lager").Range("R8")
 
  For i = 1 To Number
     
'    rngCell.Copy
'    Range("N13").PasteSpecial Paste:=xlPasteValues
    Worksheets("Lager").Range("N13").Value = rngCell.Value
     
    Set Lagerplatz = Worksheets("Lager").Range("A:A").Find(What:=Worksheets("Lager").Range("N13").Value, LookIn:=xlValues, LookAt:=xlWhole)
    Lagerplatz.Offset(, 1).Value = Worksheets("Lager").Range("N7").Value
    Lagerplatz.Offset(, 2).Value = Worksheets("Lager").Range("N8").Value
    Lagerplatz.Offset(, 3).Value = Worksheets("Lager").Range("N9").Value
    Lagerplatz.Offset(, 4).Value = Worksheets("Lager").Range("N4").Value
    Lagerplatz.Offset(, 5).Value = Worksheets("Lager").Range("N11").Value
    Lagerplatz.Offset(, 6).Value = Worksheets("Lager").Range("N5").Value
     
    Range("N16").ClearContents '(?)
     
    Worksheets("Platzkarte").Range("A1:G10").PrintPreview
     
    'eine Zelle runter
    Set rngCell = rngCell.Offset(1)
     
  Next i

Wenn die Zelle immer R8 bleiben soll, dann nimm die Zeile 24 raus.

Bei deiner Suche könntest du auch einfach schreiben:

?
1
2
3
4
5
'    rngCell.Copy
'    Range("N13").PasteSpecial Paste:=xlPasteValues
'    Worksheets("Lager").Range("N13").Value = rngCell.Value
     
    Set Lagerplatz = Worksheets("Lager").Range("A:A").Find(What:=rngCell.Value, LookIn:=xlValues, LookAt:=xlWhole)

Warum du das nochmal in eine extra Zelle schreibst, verstehe ich nicht.

 

Grüße

PS: Die Anzahl der zu verarbeitenden Zeilen kann man ermitteln; das aus einer Zelle zu nehmen ist suboptimal.

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
05.02.2022 12:09:55 Twice
NotSolved
05.02.2022 13:29:24 Gast22571
Solved
05.02.2022 13:56:14 Twice
NotSolved
Blau Makro mit Selected Cell Value ausführen
 05.02.2022 14:44:11 Gast80607
Solved
05.02.2022 15:34:44 Twice
NotSolved
05.02.2022 16:18:14 Gast32957
NotSolved