Erweiterung eines Makros

Sub Box2Txt() Dim oTxt As TextBox Dim iCounter As Integer Dim sTxt As String Set oTxt = ActiveSheet.TextBoxes(1) For iCounter = 1 To oTxt.Characters.Count Step 250 sTxt = sTxt & oTxt.Characters( _ Start:=iCounter, _ Length:=250).Text Next iCounter Range("A1").Value = sTxt Range("B1").Formula = "=len(A1)" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread