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

Forumthread: TextBox Werte in Spalte Q ersetzen ?

TextBox Werte in Spalte Q ersetzen ?
13.10.2008 15: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 16: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 16:10:00
Selma
Vielen Dank Tino !
LG,
Selma
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige