Clever-Excel-Forum

Hallo zusammen,

kann mir jemand bei diesem Makro helfen? Ich möchte gerne die komplette Spalte D ansprechen und nicht nur eine Zelle. Ich habe es bereits mit Range und Set Bereich probiert, aber ich bekomme es leider einfach nicht hin, da mir diese Art von "Zelle ansprechen" auch komplett unbekannt ist.

Private Sub CommandButton3_Click()
If IsNumeric(TextBox1.Value) Then
  [D2] = [D2] + TextBox1.Value
Else
  MsgBox "Bitte eine Zahl eingeben"
  Exit Sub
End If
End Sub

Lieben, lieben Dank und Gruß

Moin!
Die komplette Spalte besteht aus 1.048.576 Zellen.
Schildere Dein Problem mal genauer.

Gruß Ralf

Hallo,

was soll das denn werden, wenn es fertig ist?

Gruß Uwe

Ich möchte in einer Spalte alle Zahlen um eine bestimmte Zahl erhöhen oder verringern, diese Zahl gebe ich in einer Textbox ein.

Wenn es unbedingt per Makro sein soll:

Sub RPP()
Dim Zelle As Range, i&
i = Application.InputBox("Zahl:", , 5, Type:=1)
Application.ScreenUpdating = False
For Each Zelle In Range("D:D").SpecialCells(xlCellTypeConstants)
  Zelle = Zelle + i
Next
End Sub

Ich würde es aber eher mit eingebauten Excel-Methoden machen …

Gruß Ralf

• 1 in eine Zelle eintragen 
  
• Strg-C
  
• Ziel markieren (z.B. D:D)
  
• Bearb InhalteEinfügen (x) Addieren
  

kann man hübsch per VBA aufzeichnen

Als Punkt 3,5 fehlt bei Dir 
Suchen und Auswählen, Konstanten
Ansonsten füllst Du Dir die gesamte Spalte … ;)

Boah klasse! Vielen lieben Dank :) Da wäre ich nie drauf gekommen.

LIeben Gruß

Fällt Dir auch gerade auf, LCohen, dass André scheinbar das Problem mit D:D und ;) in den Griff bekommen hat?
Korrekte Darstellung, ohne die Smilies zu deaktivieren!

Chapeau! und Danke!

Oho!
Ich sehe gerade, dass dies Uwe zu verdanken ist!
Danke dafür!
http://www.clever-excel-forum.de/Thread-...#pid123427