Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellkoordinaten: 53 soll als e3 eingetragen werden

Zellkoordinaten: 53 soll als e3 eingetragen werden
12.11.2017 09:47:57
Dieter(Drummer)
Guten Morgen VBA Spezialisten,
mit diesem Code wird die Koordinaten der aktuellen Zelle in ein anderes Tabellenblatt, in c3. geschrieben. Das funktioniert: 
With Worksheets("Original")
.Range("c3") = ActiveCell.Column & ActiveCell.Row
End With

Es wird dann z.B. "53", für Zeile 5 und Spalte 3, eingetragen. Das ist auch ok.
Frage: Wie muss der Code lauten, damit statt "53" in diesem Fall "e3" eingetragen wird?
Mit der Bitte um Hilfe,
grüßt Dieter(Drummer)

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellkoordinaten: 53 soll als e3 eingetragen werden
12.11.2017 09:54:17
Hajo_Zi
Hallo Dieter,
nur das Beantwortet, was im, Beitrag steht.
Chr(ActiveCell.Column + 64)

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Danke Hajo, ist perfekt ...
12.11.2017 10:04:28
Dieter(Drummer)
... mein Code sieht jetzt so aus: 
With Worksheets("Original")
.Range("c3") = Chr(ActiveCell.Column + 64) & ActiveCell.Row
End With
Ist es schwierig, den Code so anzupassen, dass der Buchstabe, "E" in Kleinbuchstaben, also "e", erscheint?
Wär schön wenn du da noch eine Möglichkeit siehst.
Gruß, Dieter(Drummer
AW: Zellkoordinaten: 53 soll als e3 eingetragen werden
12.11.2017 10:08:31
Niclaus
Hallo Dieter
So wäre es möglich:
With Worksheets("Original")
.Range("c3") = LCase(ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False))
End With
Wenn Du LCase weglässt, wird "e3" zu "E3"
Grüsse Niclaus
Anzeige
AW: Danke Niclaus, perfekter Code ...
12.11.2017 10:20:20
Dieter(Drummer)
... und zeigt es so wie gewünscht.
Danke und Gruß,
Dieter(Drummer)
PS Hier ein anderer Beispielcode, der versch. Varianten der Anzeigemöglichkeit zeigt. Natürlich nur, wen es interessiert: 
Sub ZellAdress()
'gibt die Zeile + Spalte an
MsgBox "Spalte: " & ActiveCell.Column & vbLf & "Zeile:    " & ActiveCell.Row, , "Zelladresse"
MsgBox "Spalte: " & Chr(ActiveCell.Column + 64) & vbLf & "Zeile:    " & ActiveCell.Row, , " _
Zelladresse"
MsgBox LCase(ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False))
End Sub

Anzeige
AW: Danke Niclaus, perfekter Code ...
12.11.2017 10:34:46
Niclaus
Danke für den andern Beispielcode.
Ein Hinweis noch zu "Chr(ActiveCell.Column + 64)". Das haut nicht richtig hin, wenn die aktive Zelle z. B. "AA3" ist!
Grüsse Niclaus
nur Umwandlung von 5
12.11.2017 11:11:29
5
ich hatte mich zu sehr an die Aufgabe gehalten Es ging nur um die Umwandlung von 5 In E, es war nicht davon die Rede das andere Zahlen umgewandelt werden sollen.
Deine Lösung ist klarer.
Gruß Hajo
AW: nur Umwandlung von 5
12.11.2017 14:01:40
5
Hallo Hajo,
es war vollkommen ok, wie du auf meine Anfrage geantwortet hast. Nochmal Danke.
Gruß, Dieter(Drummer)
Anzeige
AW: Danke für Info, Niclaus. owT
12.11.2017 13:59:49
Dieter(Drummer)
andere Möglichkeit (geht dann auch mit AA)
12.11.2017 11:13:22
Werner
Hallo Dieter,
Public Sub aaa()
Dim strZelle As String, strBuchstabe As String
strZelle = ActiveCell.Address(True, False)
strBuchstabe = LCase(Left(strZelle, InStr(1, strZelle, "$") - 1))
MsgBox strBuchstabe
End Sub
Gruß Werner
AW: andere Möglichkeit (geht dann auch mit AA)
12.11.2017 13:58:56
Dieter(Drummer)
Danke Werner,
werde mir deinen Code aufheben, wenn ich mal Spalten mit 2 oder mehr Buchstaben brauche.
Gruß, Dieter(Drummer)
Danke , Danke, Danke auch an DD :-((
12.11.2017 14:57:05
robert
Gerne u. Danke für die Rückmeldung. o.w.T.
12.11.2017 19:44:37
Werner

180 Forumthreads zu ähnlichen Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Prüfung: AddIn vorhanden?
Harald

Hallo zusammen!
Habe im Excel ein AddIn das beim Start von Excel geladen wird, und beim Schließen Entladen wird.
Der Code lautet wie folgt:
----------------------
Private Sub Workbook_Open() AddIns("MeinAddIn").Installed = True End Sub
Private Sub Workbook_BeforeClose(C...
16.09.2008 08:47:00
Thread-ID: 1009955
7 Beiträge
Anzeige
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Bedingte Formatierung: 4stellige Zahl auf Endziffer prüfen?!
TimB83

Hallo,
ich probiere und teste schon seit Tagen, die Nerven liegen fast blank :oops:
Vielleicht geht es ja auch gar nicht...
Das ist mein Problem:
Ich habe in meinen Zellen 4stellige Zahlen, die entweder auf 0, auf 1 oder auf 2 enden.
Die Zellen auf 0 (z.B. 2340) sollen grü...
21.01.2009 23:21:19
Thread-ID: 1042405
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
4
6
3
1
2
2
4
3
1
2
2
3
3
12
3
7
3
2
1
4
4
8
2