suchen / finden / übertragen

20/03/2009 - 13:52 von Michael Feske | Report spam
Hallo alle zusammen,
ich arbeite mit Excel 2003 und habe folgendes Problem.
Ich habe auf einem Tabellenblatt (1) die Spalten A-F
A Nachname B Vorname C Benutzername D Teilnehmer-ID E Gruppe_01 und F
Gruppe_02
es sind überall schon Daten enthalten außer in C.
In einem anderen Tabellenblatt (2) habe ich einen identischen Aufbau.
Ich würde jetzt gerne über ein Makro aus (1) den Nachnamen und Vornamen
auslesen wollen, in (2) danach suchen und dann den benutzernamen an dieser
Stelle von (2) nach (1) übertragen.

Welche Lösungsansàtze gibt es dafür?

Gruß
Micha
 

Lesen sie die antworten

#1 Andreas Killer
20/03/2009 - 14:43 | Warnen spam
Michael Feske schrieb:

Ich habe auf einem Tabellenblatt (1) die Spalten A-F
A Nachname B Vorname C Benutzername D Teilnehmer-ID E Gruppe_01 und F
Gruppe_02
es sind überall schon Daten enthalten außer in C.
In einem anderen Tabellenblatt (2) habe ich einen identischen Aufbau.
Ich würde jetzt gerne über ein Makro aus (1) den Nachnamen und Vornamen
auslesen wollen, in (2) danach suchen und dann den benutzernamen an dieser
Stelle von (2) nach (1) übertragen.


Sub Main()
Dim S1 As Worksheet, S2 As Worksheet
Dim Y1 As Long, Y2 As Long
Dim Nachname As String, Vorname As String
'Tabellenblàtter bestimmen
Set S1 = Sheets(1)
Set S2 = Sheets(2)
'Beginne ab Zeile 2
Y1 = 2
'Durchlaufe solange bis Zelle leer
Do While S1.Cells(Y1, 1) <> ""
'Namen holen
Nachname = S1.Cells(Y1, 1)
Vorname = S1.Cells(Y1, 2)
'Beginne ab Zeile 2
Y2 = 2
'Durchlaufe solange bis Zelle leer
Do While S2.Cells(Y2, 1) <> ""
'Namen gleich?
If Nachname = S2.Cells(Y2, 1) And _
Vorname = S2.Cells(Y2, 2) Then
'Benutzer setzen
S1.Cells(Y1, 3) = S2.Cells(Y2, 3)
'Fertig
Exit Do
End If
'Nàchste Zeile
Y2 = Y2 + 1
Loop
'Nàchste Zeile
Y1 = Y1 + 1
Loop
End Sub

Ähnliche fragen