Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Komplettes Sheet anwählen (VBA) anstatt ActiveCell

Forumthread: Komplettes Sheet anwählen (VBA) anstatt ActiveCell

Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 14:01:28
Nico
Hi @ll
folgendes Problem:
Ich habe den untenstehenden Code im Archiv gefunden, um "e" in "E" und "t" in "T" umzuändern. Problem ist, dass es nur auf die aktive Zelle gerichtet ist.
Wie muss ich den Code umschreiben, um das komplette Sheet anzusteuern?
ActiveCell = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(ActiveCell, "e", "E"), "t", "T")
Danke
Nico
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 14:27:48
Horst
cells.replace "e","E"
mfg Horst
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 14:29:06
Volker
Hallo Nico,
wie wär's damit:
sub ersetzen()
dim zelle as range
for each zelle in activesheet.usedrange
zelle = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(zelle, "e", "E"), "t", "T")
next
end if
Gruß
Volker
Anzeige
AW: Komplettes Sheet anwählen (VBA) anstatt ActiveCell
03.05.2005 14:30:34
IngGi
Hallo Nico,
so sollte es gehen:

Sub Ersetzen()
ActiveSheet.Cells.Replace What:="e", Replacement:="E", LookAt:=xlPart
ActiveSheet.Cells.Replace What:="t", Replacement:="T", LookAt:=xlPart
End Sub

Gruß Ingolf
besser ist das, vergiß die Schleife (o.T.)
03.05.2005 15:23:35
Volker
.
Besten Dank :D
04.05.2005 07:24:38
Nico
.
Anzeige
;

Forumthreads zu verwandten Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
Problem mit ActiveCell.Offset
Markus

Hallo zusammen,
ich habe ein Problem mit ActiveCell.Offset. Da es unter einer anderen Überschrift fast keine Resnonanz gab, stelle ich die Frage nun geändert neu (so wird es zumindest empfohlen, bevor einer meckert :-) ).
Auf der Arbeit lese ich Hostanwendungen aus, und trage die Daten...
13.12.2008 19:06:04
Thread-ID: 1032683
6 Beiträge
Anzeige
ActiveCell.Offset(0, 1).Value
Franz

Hallo Leute,
vermutlich eine blöde Frage, aber ich komme nicht auf die Lösung.
Wie kann ich den Inhalt von ActiveCell.Offset(0, 1).Value ---- es ist ein Datum ---- um 1 Tag bzw.
1 Monat erhöhen. Rechne ich + 1, so erhöht sich das Jahr.
Grummel, grummel....
Danke für die Hilf...
20.06.2009 17:19:12
Thread-ID: 1083105
3 Beiträge
Anzeige
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
ActiveCelle Offset | Herbers Excel-Forum
Mister B
Hallo und guten Abend,
mit dem Befehl ActiveCell.Offset trage ich Werte in eine Tabelle ein. z.B.
ActiveCell.Offset(1, 0) = "F"
ActiveCell.Offset(2, 0) = "F"
ActiveCell.Offset(3, 0) = "F"
ActiveCell.Offset(4, 0) = "F"
Leider ist die entsprechende Zelle nicht "aktiv". Wie k...
04.01.2010 19:17:29
Thread-ID: 1127129
3 Beiträge
Offset - ActiveCell
Philipp

Hi!Bitte um eure Hilfe:
Ich muss aus der Quelltabelle einen Wert auslesen, diesen dann in eine andere Tabelle eintragen (der Teil läuft OK), dann in der Quelltabelle die ActiveCell eine Zeile nach unten verschieben, diese neue ActiveCell kopieren, zur Zieltabelle wechseln, ... einfügen, ......
16.05.2002 15:01:37
Thread-ID: 121392
2 Beiträge
ActiveCell.offset Bug, Combobox range
Max

Hallo liebe Com,
Ich arbeite seit geraumer Zeit mit Excel und Vba.
Zurzeit bin ich in einen kleinen Projekt mit dem ich einen "Generator" schreibe.
Hier zuerst einmal ein paar Bilder und Daten.
http://i51.tinypic.com/33cu2kp.jpg
ist die Userform
http://i53.tinypic.com/r7...
22.06.2011 21:54:31
Thread-ID: 1219374
10 Beiträge
ActiveCell.Row ( Spalte dann von : bis ) ?
:

Hallo Forum,
bräuchte bitte eure Hilfe bei einer VB Anweisung
ich möchte gerne an irgendeiner Stelle meiner ganzen Anweisungen folgendes anweisen
Bei der aktiven gewählten Zeile soll dann Spalte 2 bis 9 leer sein ( ="" ) ( .clearcontent ? )
habe folgendes probiert : ' Cells(Act...
20.10.2011 10:31:33
Thread-ID: 1234656
4 Beiträge
Anzeige
kopieren von ActiveCell.Row zu Target
ActiveCell.Row

Hallo Excelspezis
bräuchte bitte eine passende Anweisung für folgende Problematik
Target.Row , 4 = Cells(ActiveCell.Row,4).Value oder so ähnlich, bzw. richtig eben.
Hier fehlt mir die richtige Definition wie man Target als aktiveZeile,Spalte 4 angibt.
Das ganze soll dann im "B...
26.10.2011 16:47:19
Thread-ID: 1235531
7 Beiträge
VBA Hilfe ActiveCell
Alex

Hallo,
ich habe bisher folgenden Code Private Sub CommandButton21_Click() Dim zeit As String zeit = Right(Now(), 19) ActiveCell.FormulaR1C1 = zeit Selection.NumberFormat = "dd.mm.yyyy hh:mm:ss" Dim Zeile As Long Zeile = ActiveCell.Row With ActiveSheet Do Zeile = Zeile + 1 Loop Until Rows(Ze...
16.02.2015 16:41:31
Thread-ID: 1409730
4 Beiträge
If ActiveCell.Rows < 17 Then Exit Sub
Harald K

Hallo Excelforum,ich dachte mit
If ActiveCell.Rows < 17 Then Exit Sub
veranlasse ich das Makro erst ab Zeile 17 mit dem Code
weiterzumachen ansonsten wird nichts ausgeführt.Ist das richtigGruß Harald
15.08.2002 20:50:23
Thread-ID: 149228
13 Beiträge
ActiveCell.Rows mit Variable
Andreas

Hallo Leute, warum funktioniert folgender Code nicht?
Sub Test() Dim i As Integer i = Application.InputBox("Zeilen eingeben", "Zeilen", Type:=1) ActiveCell.Rows("1:i").EntireRow.Select End Sub Eigentlich sollten die Zeilen Anzahl i markiert werden. :-(
Vielen Dank schon mal
Andreas...
22.12.2016 18:32:58
Thread-ID: 1531507
8 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige