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

UsedRange Spalte Rückgabe als Buchstabe

Forumthread: UsedRange Spalte Rückgabe als Buchstabe

UsedRange Spalte Rückgabe als Buchstabe
Burghard
Hallo,
habe ein kleines Problem:
Bei i = ActiveSheet.UsedRange.Columns.Count ist das Ergebnis zum Beispiel = 4
Gibt es die Möglichkeit statt "4" auch "D" als Variable rückgeben zu lassen?
Schönen Gruß
Burghard
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
UsedRange Spaltenbuchstabe
11.04.2011 16:58:16
Erich
Hi Burghard,
das funzt aber nur, wenn der UsedRange in Spalte A beginnt. Ist das gesichert?
So wird der Spaltenbuchstabe angezeigt: 

With ActiveSheet
MsgBox Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Kleines Problem
12.04.2011 11:03:02
Burghard
Hallo Erich,
vielen Dank. Deine Lösung klappt! Allerdings bräuchte ich die Ausgabe in eine Variable und nicht in eine MsgBox.
also in etwa so:
s = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
Antwort wäre nett.
Schönen Gruß
Burghard
Wo ist das Problem?
12.04.2011 11:29:37
Erich
Hi Burghard,
mit
s = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
hast du die Lösung doch schon hingeschrieben, oder funktioniert das so nicht?
Falls das nicht funktionieren sollte, müsstest du mal beschreiben, was genau passiert und was passieren sollte.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Problem / Fehler
12.04.2011 12:51:42
Burghard
Hallo Erich,
leider gibt es in der Zeile s = Replace ... eine Fehlermeldung.
Ich habe der Einfachheit halber das ganze Makro hier reigeschrieben:
Sub zeilenhoehe()
Dim rng As Range
Dim z As Long
Dim s As Long
z = ActiveSheet.UsedRange.Rows.Count
s = ActiveSheet.UsedRange.Columns.Count
s = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
Application.ScreenUpdating = False
Range("A1" & ":" & s & z).Select
For Each rng In Selection.Rows
rng.AutoFit
If rng.RowHeight

Kannst Du helfen?
Schönen Gruß
Burghard
Anzeige
was soll der Quatsch?
12.04.2011 13:21:44
Rudi
Hallo,
das sollte doch auch reichen: 
Sub zeilenhoehe()
Dim rng As Range
Rows.AutoFit
For Each rng In ActiveSheet.UsedRange.Rows
If rng.RowHeight

Gruß
Rudi
AW: Falsche Programmierung
12.04.2011 18:20:37
Burghard
Hallo Rudi,
vielen Dank für Deine Programmzeilen. Geht bestens! Natürlich hast Du mit Deiner Kritik Recht, aber, wie Erich es sagt, bin ich am Anfang und lerne ständig dazu (und aus meinen Fehlern) und jede Programmzeile hilft mir weiter.
Schönen Gruß
Burghard
Anzeige
Probleme beseitigt?
12.04.2011 13:37:10
Erich
Hi Burghard,
da sind einige Fehler drin:
s ist als Long deklariert, soll aber das Replace-Ergebnis (einen Spaltenbuchstaben) aufnehmen.
Du hast die With-Klammer einfach weggelassen.
Hier mal zwei Versionen, sinnvoll ist nur zeilenhoehe3(). Die zeilenhoehe2() habe ich nur gepostet,
damit du daran sehen kannst, wie das aussehen könnte. 

Sub zeilenhoehe2()
Dim rng As Range
Dim z As Long
Dim s As Long
Dim strC As String
With ActiveSheet                 ' With ... End With Fehlte !
z = .UsedRange.Rows.Count
s = .UsedRange.Columns.Count
strC = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
Application.ScreenUpdating = False
With .Range("A1" & ":" & strC & z)
.EntireRow.AutoFit
For Each rng In .Rows
If rng.RowHeight
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S. @Rudi: Ich denke, Burghard ist dabei, zu lernen...
Anzeige
@Rudi: Ich denke,
12.04.2011 13:59:00
Rudi
Hallo,
mag sein.
Aber das ist wirklich von hinten durch die Brust ins Auge.
Aus einer Spaltennummer die Bezeichnung zu ermitteln, daraus einen String zu bauen um ihn dann als Range zu übergeben, den VBA dann wieder in Long-Koordinaten uminterpretieren muss ....
;-)
Gruß
Rudi
Anzeige
AW: Geht bestens!
12.04.2011 18:16:56
Burghard
Hallo Erich,
vielen Dank für Deine Hilfe und die Erklärungen! Ja, Du hast Recht, ich lerne ständig an meinen Problemen und weiß, dass ich viele Dinge falsch mache. Rudi hat da natürlich mit seiner Kritik in der Sache Recht.
Aber - wie gesagt - ich lerne aus jedem Problem.
Schönen Gruß
Burghard
Anzeige
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Anzeige
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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