Office: Stehe auf dem Schlauch bei For Each...

Hallo Leute,

Habe in Excel was gebastelt, damit beim Speichern
verschiedenes erledigt wird.

Dabei habe ich den Zellbereich mit

.....
Dim Zelle as Range
For Each Zelle In [A1:H10000]

Wie bekomme ich es hin, das
die Spalte E von der Prozedur ausgenommen wird???

Etwa so ..... [A1:D10000; F1:H10000] ??

Danke Peeti

 

Hallo,

Du mußt dem Zellbereich, den Du haben willst, einen Namen zuweisen und dann, statt den genauen Zellbezeichnungen, einfach den Namen verwenden.

 

leider nicht das richtige

Hallo es sieht komplett so aus:

Sub hochkomma()

Dim Zelle as Range
For Each Zelle In [A1:H10000]
If Zelle <> "" Then
Zelle = "'" & Zelle
End If
Next

End Sub

und bewirkt, dass sämtlichen Zellinhalten zwischen
A1:H10000 ein Hochkomma vorangestellt wird.

Ich möcht nun aber die Spalte E von dieser Prozedur ausnehmen.
Alle anderen Zellinhalte sollen das Hochkomma erhalten.

Wie kann ich das bewerkstelligen?

Danke Peeti

 

Hallo,

wie ich gesagt habe: Namen vergeben!
Markiere A1:D10000 und mit gedückter Strg-Taste F1:H10000, und gib diesem Bereich den Namen"HoKoBereich".
Mit folgendem Code

Sub hochkomma()

Dim Zelle As Range
For Each Zelle In Range("HoKoBereich")
If Zelle <> "" Then
Zelle = "'" & Zelle
End If
Next

End Sub

werden dann nur die Zellen in diesem Bereich mit dem Hochkomma versehen.

 

Bingo,

DANKE