Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen kopieren mit Array + Schleife
27.08.2021 00:03:10 Gerrit
Solved
27.08.2021 03:20:33 Gast43093
Solved
27.08.2021 18:07:39 Gerrit
NotSolved

Ansicht des Beitrags:
Von:
Gerrit
Datum:
27.08.2021 00:03:10
Views:
90
Rating: Antwort:
 Nein
Thema:
Zellen kopieren mit Array + Schleife

Hallo Zusammen,

bin ganz neu in der Welt von VBA und komme bei folgendem Problem nicht weiter (habe wirklich lange nach einer Lösung gesucht und wollte das Problem eigenständig lösen).

Ich habe eine Arbeitsmappe mit folgenden Arbeitsblättern ("01", "02", "03", "04", "05", "06", "Auswertung")

Jedes Arbeitsblatt hat eine Spalte mit Namen und eine mit Zahlen.

Ich will nun, dass in den Arbeitsblättern von "01" bis "06" zunächst nach einem bestimmten Namen/Mitarbeiter gesucht wird (in Spalte 3) und von diesem ausgehend 18 Spalten nach rechts gegangen wird und dort die Zelle selektiert wird (da ich genau diesen Wert benötige). Der Wert bzw. die selektierte Zelle soll dann in das Arbeitsblatt "Auswertung" in den Zellen B3, C3, D3, E3, F3 und G3 eingetragen werden (pro Name immer 6 Werte; also beim ersten Namen die genannten Zellen, beim zweiten Namen Zellen B4, C4, D4 usw.). In Zelle A3 von "Auswertung" soll der Name/Mitarbeiter, von dem diese Selektion ausgegangen ist, eingetragen werden. Da es sich um viele Namen/Mitarbeiter handelt (ca. 40) soll das ganze in einer Schleife laufen. Der Code sieht bisher so aus (Beispiel mit 3 Namen/Mitarbeiter):

 

Sub MitarbeiterundZahleninneueArbeitsmappe()

Dim Mitarbeiter(2) As String

Mitarbeiter(0) = "Peter"

Mitarbeiter(1) = "Max"

Mitarbeiter(2) = "Klaus"

 

Dim ws(5) As Worksheet

Set ws(0) = Worksheets("01")

Set ws(1) = Worksheets("02")

Set ws(2) = Worksheets("03")

Set ws(3) = Worksheets("04")

Set ws(4) = Worksheets("05")

Set ws(5) = Worksheets("06")

 

Dim i As Integer

For i  =  0 To 2

Worksheets("Auswertung").Cells(i + 3, 1).Value = Mitarbeiter(i)

Next i

 

Dim k As Integer

For k = 0 To 5

 

ws(k).Select

Find(What:=Mitarbeiter(i).Columns(3).Offset(0, 18).Select  <-- hier taucht immer der Fehler auf

Selection.Copy

Sheets("Auswertung").Select

Cells(i + 3, i + 3)

ActiveSheet.Paste

Next i

Next k

End Sub

 

Sorry, falls das Problem sehr "basic" ist und für den schlechten Code!

Vielen Dank für Eure Hilfe im Voraus!

Grüße

Gerrit


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
Rot Zellen kopieren mit Array + Schleife
27.08.2021 00:03:10 Gerrit
Solved
27.08.2021 03:20:33 Gast43093
Solved
27.08.2021 18:07:39 Gerrit
NotSolved