Office: MAKRO

wurzidl · 7. Oktober 2014

Liebe VBA-Profis!

Also leider absoluter VBA-Neuling ersuche ich um eure geschätzte Hilfe zu meinem Problem!

Ich habe eine Arbeitsmappe mit mehreren Tabellenblättern:

- Daten (Spaltenaufbau: A=laufende Nummer, B=Person_Nr., C=Wert 1, D=Wert 2, E=Wert 3, usw.)
- Person_1
- Person_2
- Person_3
- Person_4

Auf Knopfdruck (durch ein Steuerelement im Blatt Daten) sollen mit einem SVERWEIS alle Werte aus dem Blatt Daten
in die passenden Blätter von Person_1, Person_2, etc. in die nächste freie Zelle in Spalte B ab der Zeile 9 kopiert werden.

Ich würde mich sehr rüber eure Hilfe freuen!

Vielen herzlichen Dank und beste Grüße,

Patrick

:)

Beverly · 9. Oktober 2014

Hi Patrick,

kommen die Personen mehrfach oder jeweils nur einmal vor im Tabellenblatt Daten?

Beverly · 9. Oktober 2014

Hi Patrick,

ich muss jetzt leider gleich weg, deshalb hier mal eine Lösung unter der Voraussetzung, dass die Personen in Spalte B mehrfach vorkommen:

Code:

Sub Kopieren()
Dim lngZeile As Long
Dim lngErste As Long
Dim wksTab As Worksheet
For lngZeile = 1 To 12
If Not IsError(Evaluate(Cells(lngZeile, 2) & "!A1")) Then
With Worksheets(Cells(lngZeile, 2).Value)
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Range(Cells(lngZeile, 1), Cells(lngZeile, 10)).Copy .Cells(lngErste, 1)
End With
End If
Next lngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kopiert werden die Spalten A bis J - musst du eventuell anpassen.

wurzidl · 9. Oktober 2014

Hallo Beverly!

Vielen herzlichen Dank für die suuuuuper schnelle und vorallem perfekte Antwort! Der Code hilft mir absolut weiter! :-)

Hätte dazu jedoch noch eine kleine Frage bzw. Adaptierung:

gibt es eine Möglichkeit im Zuge des Kopiervorganges der Werte zu überprüfen, ob auch für jede Person, die im Blatt "Daten" vorkommt ein eigenes Blatt "Person_Nr...." existiert und falls nicht, dann ein Pop-Up erzeugt wird mit dem Text "Achtung, Person Nr.... nicht angelegt!".

Falls ein "Personen-Blatt" fehlt und diese Fehlermeldung erzeugt wird, dann sollten auch keine Werte in andere Blätter kopiert werden, bis das Problem behoben wurde.

Zur Info: somit habe ich eine Kontrollfunktion um bei der Übertragung keine Werte einer Person "ins leere zu kopieren".

Daaaaaaanke nochmals für die tolle Unterstützung! *Smilie

LG, Patrick

wurzidl · 9. Oktober 2014

und gleich nochmal HALLO! :-)

Habe gerade bei einem Testlauf noch gesehen, dass falls im Blatt "Daten" zB. in der Spalte "Wert_1" eine Formel hinterlegt ist, dann die Formel kopiert wird. Ich würde jedoch immer den Wert und nicht die Formel benötigen!

Danke nochmals!

LG

Beverly · 9. Oktober 2014

Hi Patrick,

hier müssten deine beiden Wünsche eingearbeitet sein (teste es einfach mal):

Code:

Sub Kopieren()
Dim lngZeile As Long
Dim lngErste As Long
Dim wksTab As Worksheet
For lngZeile = 1 To 12
If Not IsError(Evaluate(Cells(lngZeile, 2) & "!A1")) Then
With Worksheets(Cells(lngZeile, 2).Value)
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Range(Cells(lngZeile, 1), Cells(lngZeile, 10)).Copy
' nur Werte einfügen
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
End With
Else
MsgBox "Person " & Cells(lngzeilem2) & " bitte anlegen"
End If
Next lngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mal eine Frage: wäre es nicht sinnvoller, anstatt die MsgBox anzuzeigen gleich ein neues Tabellenblatt für die Person anzulegen?

Office: MAKRO

MAKRO

MAKRO

MAKRO

MAKRO - Similar Threads - MAKRO

Name der Datei durch Excel geändert

Ein Makro für mehrere Register

Makro öffnet unerwartete Datei

Leerzeilen entfernen

Makro Schaltflaechen vervielfaeltigen sich....

Seit Win 11 Zugriffsprobleme bei Excel über Makros

VBA-Makro zur Zellenformatierung Syntax probleme