Zelleinhalt (String) bzw. Anfangbuchstabe in VBA auslesen

[Marko Reichmann]

Hallo,

kann mir jemand helfen? Mit einem VBA-Skript finde ich die
erste leere Zelle in einer Spalte heraus, gehe dann eine
Spalte nach rechts und möchte dann diese Zelle je nach
Anfangsbuchstaben in eine andere Zelle kopieren:

Dim last_row As Integer
Dim last_column As Integer
Dim i As Integer
Dim work_row As Integer
Dim work_column As Integer
Dim content As String

Sub eprosort()
' Tabellengrösse ermitteln
ActiveSheet.Cells.SpecialCells
(xlCellTypeLastCell).Activate
last_row = ActiveCell.Row
last_column = ActiveCell.Column

' leere Zellen in B suchen
' While i <= last_row

[B:B].SpecialCells(xlBlanks).Cells(1).Select

' Zelle rechts davon aktivieren

' A1 ist die vor Ausführung des Macros gerade aktive
Zelle. Aktiviert wird ausgehend von dieser Zelle
' (a, b) a Zeilen nach unten und b Spalten nach rechts
(bei - nach oben bzw. links).

ActiveCell.Offset(0, 1).Range("A1").Select

' Zelle (Anfangsbuchstaben) ermitteln




' sehen, was in den Variablen steht
work_row = ActiveCell.Row
work_column = ActiveCell.Column

MsgBox "Zeile: " & work_row & Chr(13) & "Spalte: " & _
work_column, vbOKOnly + vbInformation, "Die 1. leere
Zelle in Spalte B ist:"

'Zellen verschieben
Worksheets("Tabelle1").Range("D6:C7").Cut

ActiveSheet.Paste Destination:=Worksheets
("Tabelle1").Range("D6:E7")


' i = i + 1

' Wend

End Sub

Nun stecke ich fest, beim Auslesen der (aktiven) Zelle, um
den Anfangsbuchstaben herauszufinden. Gibt es da eine für
mich (Anfänger) realisierbare Möglichkeit?

Über eine Antwort würde ich mich freuen.

Besten Dank
Marko

[stefan onken]

hallo Marko,

>Nun stecke ich fest, beim Auslesen der (aktiven) Zelle,
um
>den Anfangsbuchstaben herauszufinden. Gibt es da eine
für
>mich (Anfänger) realisierbare Möglichkeit?
>
>Über eine Antwort würde ich mich freuen.

mit Left(ActiveCell,1)

Gruß
stefan

> Besten Dank
> Marko
>
>.
>

[Marko]

Vielen Dank, so geht es. Und damit die Nachwelt mal ein
Beispiel hat hier der Code:

Dim last_row As Integer
Dim last_column As Integer
Dim i As Integer
Dim work_row As Integer
Dim work_column As Integer
Dim content As String

Sub eprosort()
' Tabellengrösse ermitteln
ActiveSheet.Cells.SpecialCells
(xlCellTypeLastCell).Activate
last_row = ActiveCell.Row
last_column = ActiveCell.Column

' leere Zellen in B suchen
' While i <= last_row

[B:B].SpecialCells(xlBlanks).Cells(1).Select

' Zelle rechts davon aktivieren

' A1 ist die vor Ausführung des Macros gerade aktive
Zelle. Aktiviert wird ausgehend von dieser Zelle
' (a, b) a Zeilen nach unten und b Spalten nach rechts
(bei - nach oben bzw. links).

ActiveCell.Offset(0, 1).Range("A1").Select

' (aktive) Zelle Anfangsbuchstabe ermitteln

content = Left(ActiveCell, 1)

' sehen, was in den Variablen steht
work_row = ActiveCell.Row
work_column = ActiveCell.Column

MsgBox "Zeile: " & work_row & Chr(13) & "Spalte: " & _
work_column, vbOKOnly + vbInformation, "Die 1. leere
Zelle in Spalte B ist:"

MsgBox "Anfangsbuchstabe: " & content, vbOKOnly +
vbInformation, "Der Erste Buchstabe ist:"

'Zellen verschieben
Worksheets("Tabelle1").Range("D6:C7").Cut

ActiveSheet.Paste Destination:=Worksheets
("Tabelle1").Range("D6:E7")


' i = i + 1

' Wend

End Sub

>-----Originalnachricht-----

>.
>