Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kurze frage zur spaltenüberschrift in vba

kurze frage zur spaltenüberschrift in vba
05.09.2004 23:01:22
bernd
hallo zusammen,
ich habe eine kurze frage:
wenn ich in spalte A1 schreibe: =Spalte(AI3), erhalte ich 35
kann ich nun im vba auch erreichen, dass er in A1 ="AI" schreibt statt 35 ?
vg
bernd

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
spaltenüberschrift per Worksheet_Change ändern
Beate
Hallo Bernd,
füge dieses Makro ins Codefenster der Tabelle, wenn AI3 sich ändert, springt der Wert in A1 entsprechend um:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$AI$3" Then
Cells(1, 1).Value = Target.Value
End If
End Sub

Gruß,
Beate
AW: spaltenüberschrift per Worksheet_Change ändern
Udo
Bravo, du steigerst dich!
Udo
da habe ich mich mißverständlich ausgedrückt...
bernd
...
ich habe gerade folgende formel:
...
j=35
sheets("tabelle").range("a1".value = COLUMN(j)
hier soll nun in a1 nicht 35 sondern AI stehen...
AW: da habe ich mich mißverständlich ausgedrückt...
Bert 

Sub Spalte()
Dim j As Integer, SB As String
j = 35
If j < 27 Then
SB = Left(Columns(j).Address(0, 0), 1)
Else
SB = Left(Columns(j).Address(0, 0), 2)
End If
[a1] = SB
End Sub

Bert
Anzeige
Spalte auslesen
Beate
Hallo Bernd,
ich habe eine Funktion, die gibt den Spaltenbuchstaben zurück.
Also steht in A1 = ColumnLetter(35) wird AI zurückgegeben.
Es geht natürlich auch dynamischer, wenn die 35 z.B. aus Zelle B1 kommt, dann
A1 = ColumnLetter(B1)
Vielleicht hilft dir die Funktion bei den Überlegungen zu deinem Makro, es müssen nämlich Kriterien beachtet werden, wenn es über Spalte Z (=Spalte26) hinaus geht, weil ja dann 2 Buchstaben kombiniert werden müssen: 

Function ColumnLetter(ColumnNumber As Integer) As String
If ColumnNumber > 26 Then
' 1st character:  Subtract 1 to map the characters to 0-25,
'                 but you don't have to remap back to 1-26
'                 after the 'Int' operation since columns
'                 1-26 have no prefix letter
' 2nd character:  Subtract 1 to map the characters to 0-25,
'                 but then must remap back to 1-26 after
'                 the 'Mod' operation by adding 1 back in
'                 (included in the '65')
ColumnLetter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _
Chr(((ColumnNumber - 1) Mod 26) + 65)
Else
' Columns A-Z
ColumnLetter = Chr(ColumnNumber + 64)
End If
End Function

Gruß,
Beate
Anzeige
danke beate, es funktioniert super
bernd
mit der routine *freu*
super vielen dank
bernd
:-)

308 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 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

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
4
7
5
2
1
4
2
4
8
3
3
2
10
6
7
7
15
4
4
16
5
8
6
5
2