ich suche ein Makro das bei der Rechnungslegung aus dem 1 Tabellenblatt (A9) den Namen (ist immer unterschiedlich) übernimmt und in ein Tabellenblatt (in der Gleichentabelle 2 Blätter weiter)fortlaufend speicher in Zeile "C".
1000 Dank schonmal
Sub NameSpeichern()
Dim lrZelle As Range, liZeile As Integer
Application.ScreenUpdating = False
liZeile = 1
Sheets(3).Activate
For Each lrZelle In Range("C:C")
If lrZelle.Value = "" Then
lrZelle.Value = Sheets(1).Range("A9").Value
Exit For
End If
liZeile = liZeile + 1
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
Sub NameSpeichern()
Dim lrZelle As Range
Application.ScreenUpdating = False
liZeile = 1
Sheets(3).Activate
For Each lrZelle In Range("C:C")
If lrZelle.Value = "" Then
lrZelle.Value = Sheets(1).Range("A9").Value
Exit For
End If
Next
For Each lrZelle In Range("B:B")
If lrZelle.Value = "" Then
lrZelle.Value = Sheets(1).Range("F15").Value
Exit For
End If
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub