Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

TextBox Werte in Spalte Q ersetzen ?

Forumthread: TextBox Werte in Spalte Q ersetzen ?

TextBox Werte in Spalte Q ersetzen ?
13.10.2008 17:42:00
Selma
Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene Werte bzw. nur die Zelleinhalte die bereits Inhalt haben.
Wie mache ich das ?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox Werte in Spalte Q ersetzen ?
13.10.2008 18:05:42
Tino
Hallo,
teste mal diesen Code, es wird auf der aktiven Tabelle ersetzt.
Getestet unter 2007.
Dialog UserForm1
 
Option Explicit 
 
Private Sub CommandButton1_Click() 
 
If TextBox1 <> "" Then 
    Range("Q12:Q" & Columns.Count).Replace What:="*", Replacement:=Me.TextBox1.Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False 
End If 
 
End Sub 


Gruß Tino

Anzeige
AW: TextBox Werte in Spalte Q ersetzen ?
13.10.2008 18:10:00
Selma
Vielen Dank Tino !
LG,
Selma

Forumthreads zu verwandten Themen

Anzeige
Anzeige