Kleine Sektflaschen Hochzeit
Ich habe eine Userform in Excel VBA erstellt, in dieser ist ein textfeld. In diesem Textfeld soll eine List eingefügt werden Beispiel: 67127358 23784623 87921692 ___________________________________ Diese soll anschließend durch einen Button in Zellen untereinander eingefügt werden. Kann mir da jemand helfen? Gerne mit VBA Ahnung und nicht einfach den nächst besten Link von google einfügen. Excel-VBA-Formeln: Der ultimative Leitfaden - Automate Excel. Community-Experte Excel, VBA Ich gehe mal davon aus, dass das Textfeld auf "Multiline" eingestellt ist. UND das der Inhalt per Copy Paste im TextFeld gelandet ist; Privat Sub Button_Click Dim MeinInhalt as Variant Dim i as integer Dim j as integer j=1 MeinInhalt = (, (10), -1, vbTextCompare) For i = 0 to Ubound(MeinInhalt) if (MeinInhalt) > 0 then Range("A" & j) = MeinInhalt(i) j=j+1 end if End Sub Woher ich das weiß: Berufserfahrung
Dabei... Users found this page by searching for: excel vba makro formel kopieren, excel vba formel kopieren benutzter bereich, makro gesteuerte Tabelle formel übernehmen
FormulaR1C1 = _ Range("F2"). AutoFill Destination:=Range("F2:F" & lngLetzte) End Sub MfG Tom Hi Bernhard, du musst nicht die R1C1-Schreibweise für das Eintragen der Formel verwenden - mittels Eigenschaft. FormulaLocal kannst du die Formel ganz normal eintragen: ' letzte belegte Zeile im Tabellenblatt lngLetzte = (What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Range("F2"). [COLOR=#0000cd][B]FormulaLocal[/B][/COLOR] = "=WENN(UND(D2<>""EP"";D2<>"""";C2<>""Rose"";C2<>""Tulpe"";C2<>""Lilie"";C2<>""Gummibaum"";C2<>""Müller"");I2;"""")" Range("F2"). AutoFill Range(Cells(2, 6), Cells(lngLetzte, 6)) Oder du verwendest die englische Formelschreibweise und die Eigenschaft. Formula Range("F2"). [COLOR=#0000cd][B]Formula[/B][/COLOR] = "=IF(AND(D2<>""EP"", D2<>"""", C2<>""Rose"", C2<>""Tulpe"", C2<>""Lilie"", C2<>""Gummibaum"", C2<>""Müller""), I2, """")" Beachte, dass dabei außer der englischen Funktionsnamen auch das ";" durch ", " ersetzt werden muss. VBA - Formel kopieren - variabler bereich. Bis später, Karin SSSSUUUPPPEERR... danke für die Hilfe.