Office: Umwandeln von Spaltenname (alphanumerisch in numerisch)

Hallo Leute,

ich bin erst neu hier und habe noch nicht allzu viel Erfahrung mit VBA.

Ich muss sehr viele Excel-Dateien mit einander vergleichen und schauen ob sie den gleichen Tabellenkopfaufbau besitzen. Es gibt sozusagen einen Master für diesen Tabellenkopf. (siehe Anhang)
Leider weichen die Bezeichnungen für diese Tabellenköpfe in den Excel-Dateien welche zu vergleichen sind von einander ab, z.B. heißt es nicht Objektart sondern Objekt.
Deshalb muss ich erst nach den verschiedenen Bezeichnungen suchen lassen und dann die Daten aus dieser Spalte in die richtige Spalte vom Master einführen.
Habe mich auch schon selbst probiert, aber weiß leider nicht wie ich den Spaltenbuchstaben weiter verwenden kann! Denn ich benötige ihn um die Daten aus dieser Spalte zu kopieren!

Sub versuch()

Sheets("Tabelle1").Select
Application.FindFormat.Clear

Cells.Find(What:="Objekt").Activate

'Ausgabe Spaltenbuchstabe
Dim COL As String
COL = Mid(ActiveCell.Address, 2, 2)
'Falls nur ein Spaltenbuchstabe
If Right(COL, 1) = "$" Then
COL = Mid(ActiveCell.Address, 2, 1)
End If
MsgBox COL

'Wie kann ich hier den Spaltenbuchstaben weiter verwenden! (Wo jetzt H4 steht)

Range("H4", Range("H65536").End(xlUp)).Select 'Spalte kann unbestimmte zeilenanzahl haben
Selection.Copy
Sheets("Tabelle2").Select
Range("H4").Select
ActiveSheet.Paste

End Sub


Hoffe ihr könnt mir helfen!

Danke schon mal im Voraus! *Smilie

:)

 

hiho
hilft Dir das weiter?
http://www.ms-office-forum.net/forum...68&postcount=5

 

Das hilft mir leider nicht weiter, da ich ja erst einen Text suchen lasse und dann möchte ich ausgegeben haben in welcher Spalte dieser Text steht. Mit dieser Angabe möchte ich dann automatisiert weiter arbeiten. Denn ich muss den Spalteninhalt ab Zeile 4 bis x kopieren und in ein anderes Tabellenblatt einfügen!

'Ausgabe Spaltenbuchstabe
Dim COL As String
COL = Mid(ActiveCell.Address, 2, 2)
'Falls nur ein Spaltenbuchstabe
If Right(COL, 1) = "$" Then
COL = Mid(ActiveCell.Address, 2, 1)
End If
MsgBox COL

'Wie kann ich hier den Spaltenbuchstaben weiter verwenden! (Wo jetzt H4 steht--> also dort soll automatisiert der ermittelte Spaltenbuchstabe stehen)

Range("H4", Range("H65536").End(xlUp)).Select 'Spalte kann unbestimmte zeilenanzahl haben
Selection.Copy
Sheets("Tabelle2").Select
Range("H4").Select

 

Hi Steven,

mit folgenden 2 Funktionen kannst Du in beide Richtungen umwandeln...*Smilie

Code:

 

Hallo Steven

???
dann hast Du meinen Link nicht angeklickt oder *Smilie

 

Hi Ralf,

danke für den Hinweis, leider kenne ich mich wie gesagt mit VBA nicht allzu gut aus, da ich es erst seit einigen Tage benutze.
Wie kann ich denn die Funktion in meine Prozedur einbinden und wie kann ich das dann in Range("H4", Range("H65536").End(xlUp)).Select (weiter siehe unten) einbinden?

Habe schon einiges ausprobiert, aber bin leider nicht zum gewünschten Ergebnis gekommen.*frown.gif*
Kannst du mir das mal bitte für mein Beispiel zeigen!?

Danke schon mal im Voraus! *Smilie

'Ausgabe Spaltenbuchstabe
Dim COL As String
COL = Mid(ActiveCell.Address, 2, 2)
'Falls nur ein Spaltenbuchstabe
If Right(COL, 1) = "$" Then
COL = Mid(ActiveCell.Address, 2, 1)
End If
MsgBox COL

'Wie kann ich hier den Spaltenbuchstaben weiter verwenden! (Wo jetzt H4 steht--> also dort soll automatisiert der ermittelte Spaltenbuchstabe stehen)
Range("H4", Range("H65536").End(xlUp)).Select 'Spalte kann unbestimmte zeilenanzahl haben
Selection.Copy
Sheets("Tabelle2").Select
Range("H4").Select

 

Hi Chris,

ich habe mir deinen Link schon angeschaut, aber er hat mir leider nicht geholfen, da ich ja einen Text suchen lasse und mir dann den Spaltennamen davon ausgeben lassen will und dann mit dieser Ausgabe weiter arbeiten muss.

 

Hi Steven,

den Spaltenbuchstaben, gem. Deiner Vorlage, ermittelst Du dann so:

Code:

liefert den Spaltenbuchstaben der aktiven Zelle

oder auch so:

Code:

liefert C (3.Spalte)

Du könntest auch so vorgehen:
Code:

Zeile 23 der aktiven Spalte wird mit 12345 gefüllt.


Die Spaltennummer ermittelst Du so:

liefert 1. Also Spalte A = Spaltennr 1

 

Vielen Dank für die Hilfe Ralf!