AW: Erweiterung eines Makros
20.11.2003 18:02:53
udo
Hallo Rolf,
hier mal ein Vorschlag der passen könnte. Entweder du weist ihn auch einem Button zu, oder du nimmst die Ganze Anweisungen des Makros, und setzt sie zu / oder in dein Makro am Anfang ein,
Gruß udo
Sub Wert_in_leere_Zelle_uebernehmen()
Cells(1, 1).Select
nochmal:
If Cells(ActiveCell.Row, 1) <> "" Then
Cells(ActiveCell.Row + 1, 1).Select
GoTo nochmal:
'End If
Else
'Cells(ActiveCell.Row, 1) = "" Then
Cells(ActiveCell.Row, 1) = Cells(1, 1).Value
End If
End Sub
........................................................................................................................................................................................................................................................................................
Hier mal noch zusätzliche , brauchbare Beispiele von versch. Helfern aus dem Forum , sowie mir selbst , ... viel Erfolg allerseits , Gruß udo
Zahlen vertauschen per Zufall ( udo ) **
https://www.herber.de/bbs/user/2036.xls ( 60 Kb )
Markierhilfe ( udo ) **
https://www.herber.de/bbs/user/2035.xls ( 48 Kb )
Arbeitszeiterfassung mit Jahreskalender & Feiertagsübersicht ... Update kommt demnächst ( v. udo , EXCEL XP , 2000 ) ***
https://www.herber.de/bbs/user/1834.zip ( 347 Kb )
Datumwert abgleichen / suchen und entspr. Zeilen kopieren in andere Tabellen ( v.udo ) **
https://www.herber.de/bbs/user/1920.xls ( 70 Kb )
intelligente Gültigkeit - erweitert sich autom. um neue Einträge in der Gültigkeitsvorgabe ( v. Boris ) *****
https://www.herber.de/bbs/user/1953.xls ( 40 Kb )
verschiedenen Beispiele zusammen , mit allen mögl. Formeln ( v. Max ) *****
https://www.herber.de/bbs/user/1946.xls ( 300 Kb )
Suchen X Einträgen, je nach Eingabe v. Buchstaben ( v. Heinz ) ****
Die Datei https://www.herber.de/bbs/user/1959.xls wurde aus Datenschutzgründen gelöscht
( 44 Kb )
Hajos Excelseite mit tollen Beispielen mit & ohne VBA's ( v. Hajo_Zi ) *****
http://home.media-n.de/ziplies/
Bewertungen meinerseits ( ***** sehr z. empfh. Tipp , **** sehr gut , *** gut , ** unspektakulär aber brauchbar ... )
( Anregeungen oder Tipps speziell zu meinen ( udo ) Beispielen gerne an udo-de@web.de )
........................................................................................................................................................................................................................................................................................
Rückmeldungen der Fragesteller auf Antworten versch. Helfer, steigern den allg. Lerneffekt !!!
...
Sub Wert_in_leere_Zelle_uebernehmen()
Cells(1, 1).Select
nochmal:
If Cells(ActiveCell.Row, 1) <> "" Then
Cells(ActiveCell.Row + 1, 1).Select
GoTo nochmal:
'End If
Else
'Cells(ActiveCell.Row, 1) = "" Then
Cells(ActiveCell.Row, 1) = Cells(1, 1).Value
End If
End Sub