Office: Letzten 2 Zeichen eines Strings in Variable kopieren

User · 13. März 2006

Hallo,

bin leider noch blutiger Anfänger...

gibt es einen Befehl(bzw. wie sieht er aus) um die letzten 2 Zeichen eines Strings zu ermitteln, zu kopieren und diesen dann wieder als String in einer neuen Variable abzuspeichern??

Danke für eure Hilfe!!

:)

User · 15. März 2006

Hallo Hans Bärbel,

Code:

Option Explicit

Sub test()
Dim StWert As String
Dim StWert2 As String
StWert = "123456789"
StWert2 = Right(StWert, 2)
MsgBox StWert2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 15. März 2006

Habs jedtzt mit folgendem Code probiert!!

Bekomm jedoch immer den Laufzeitfehler 9 :
Index ausserhalb des gültigen Bereichs

Code:

sheetName = Sheets(i).Name
abschnitt = Right(sheetName, 2)

Bei sheetName = Sheets(i).Name meldet er den Fehler

????

Lumpensammler · 15. März 2006

Hallo, 8aClock

kann ich nicht nachvollziehen. Code in allgemeinem Modul:

Code:

Option Explicit

Sub test_8aClock()
Dim i As Integer
Dim abschnitt As String
Dim sheetname As String
i = 2
sheetname = Sheets(i).Name
abschnitt = Right(sheetname, 2)
Debug.Print abschnitt
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
LS

User · 15. März 2006

Hallo,

der Code sieht folgendermassen aus:

Der Debugger sagt mir das beim ausfürhen der Zeile
sheetName = Sheets(i).Name der Wert von Sheets(i).Name = 2 ist

Aber eigentlich müsste er doch 1 sein, da der Zaehler ab 1 beginnt, oder??

Code:

Code:

Dim s As Integer
Dim i As Integer
Dim abschnitt As String
Dim sheetName As String

s = Worksheets.Count

For i = 1 To s

'Letzte 2 Zeichen des Tabellennamens ermitteln. Kriterium für Kopf und Fusszeile
sheetName = Sheets(i).Name
abschnitt = Right(sheetName, 2)

'Alle Kostenstellen Spalten löschen
SpaltenLoeschen dateiNameNeu, Sheets(i).Name, dateiNameAlt, sheetNameAlt

'Alle Kostenstellen UeberschriftUnterstrich
AlleKstUeberschriftUnterstrich dateiNameNeu, Sheets(i).Name

'Alle Kostenstellen Querformat
Querformat dateiNameNeu, Sheets(i).Name

'Alle Kostenstellen Schriftgrösse 8
Schriftgroesse dateiNameNeu, Sheets(i).Name

'Alle Kostenstellen Kopf und Fusszeile
KopfundFusszeile dateiNameNeu, Sheets(i).Name, dateiNameAlt, sheetNameAlt, abschnitt

Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lumpensammler · 15. März 2006

Hallo, 8aClock,

der Index beginnt mit dem ersten in der Tabelle angereihten Blatt, und der Index ist dann 1. Wie die Tabelle heißt, kann man durch Verschieben beeinflussen.

Gruß
LS

User · 15. März 2006

Hallo,

Blick aber irgendie ned durch warum er mir den Fehler bringt??

???

An was könnte das liegen??

Lumpensammler · 15. März 2006

Hallo, 8aClck,

ich sehe die von Dir aufgerufenen Prozeduren nicht und kenne den Aufbau der Mappe nicht, wie soll ich da rhetorische Fragen beantworten können? *wink.gif*

Gruß
LS

User · 15. März 2006

Sorry, hier der Code in dem der Fehler auftaucht

Code:

Dim s As Integer
Dim i As Integer
Dim abschnitt As String
Dim sheetName As String

s = Worksheets.Count

For i = 1 To s

'Letzte 2 Zeichen des Tabellennamens ermitteln. Kriterium für Kopf und Fusszeile
sheetName = Sheets(i).Name
abschnitt = Right(sheetName, 2)

'Alle Kostenstellen Kopf und Fusszeile
KopfundFusszeile dateiNameNeu, Sheets(i).Name, dateiNameAlt, sheetNameAlt, abschnitt

Next i

Function KopfundFusszeile(strDateinameNeu As String, sheetNameNeu As String, strDateinameAlt As String, _
strSheetnameAlt As String, kriterium As String)

'Variable für den Anfang ab Datumsbeginn bis zum letzen Datum
Dim anfang As Integer
Dim ende As Integer

'Hier wird das kleinste und das grösste DAtum gespeichert
Dim vonDatum As String
Dim bisDatum As String

'Die alte DAtei wird aktiviert
Windows(strDateinameAlt).Activate
Sheets(strSheetnameAlt).Activate

'Der Anfang (die Zelle für das erste Datum) wird auf 1 gesetzt
anfang = 1

'Liest den letzten Eintrag in der Spalte E und speichert ihn in die Variable ende
ende = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

'Die letzte Zelle in Spalte E (+1) wird aktiv gesetzt
ActiveSheet.Cells(ende + 1, 5).Select

'Berechnet Minimum des Datums
ActiveCell.FormulaR1C1 = "=MIN(R[-" & ende - 1 & "]C:R[-" & anfang & "]C)"
vonDatum = ActiveCell.Value

'Berechnet Maximum des Datums
ActiveCell.FormulaR1C1 = "=MAX(R[-" & ende - 1 & "]C:R[-" & anfang & "]C)"
bisDatum = ActiveCell.Value

'Neue Datei aktivieren
Windows(strDateinameNeu).Activate
Sheets(sheetNameNeu).Activate

'Wird für die Einträge in der Kopf- und Fusszeile benötigt
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "Test" & Chr(10) & "test1" & Chr(10) & ""
.CenterHeader = _
"Benutzernummer " & Chr(10) & "aufstellungsnummer " & Chr(10) & nNummer & Chr(10) & ""
.RightHeader = "Zeitraum " & vonDatum & " - " & bisDatum & Chr(10) & "Kostenstelle " & kriterium & Chr(10) & ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

'Alte Datei wird wieder aktiviert
Windows(strDateinameAlt).Activate
Sheets(strSheetnameAlt).Activate

'Die Zelle in der alten Datei in der jeweils das Max und Min geschrieben wurde wird gelöscht
ActiveSheet.Cells(ende + 1, 5).Delete

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 15. März 2006

Sorry,

Fehler behoben!!!

hab die ganze Zeit in der falschen Datei gearbeitet!!!

Trotzdem vielen Dank für deine Hilfe!!!!!!!

CU

Lumpensammler · 15. März 2006

Hallo, 8aClock,

das kann nun niemand von extern vorhersehen. Aber wenn es mit der richtigen Mappe klappt. *wink.gif*

Gruß
LS

Office: Letzten 2 Zeichen eines Strings in Variable kopieren

Letzten 2 Zeichen eines Strings in Variable kopieren

Letzten 2 Zeichen eines Strings in Variable kopieren

Letzten 2 Zeichen eines Strings in Variable kopieren

Letzten 2 Zeichen eines Strings in Variable kopieren

Letzten 2 Zeichen eines Strings in Variable kopieren - Similar Threads - Zeichen Strings Variable

Erlaubte Zeichen an bestimmten Stellen von Strings

Einen String mit weiteren Zeichen für festgelegte Zeichenlänge belegen

In einem String Zeichen einfügen

Strings: Alle Zeichen vor einem bestimmten Zeichen löschen

String > 3 Zeichen aus String auslesen

Replace mit mehreren Zeichen in einem String

String auf gültige Zeichen prüfen