Zellinhalte nach links verschieben (lückenlos)?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Prefix() Dim WkSh As Worksheet Dim lZeile As Long Dim iText As Long, varEingabe Set WkSh = ActiveSheet varEingabe = Application.InputBox(Prompt:="Bitte Kürzel eingeben!" & vbLf & "LTA oder TST _ oder RNS", _ Title:="Prefix in Spalte A", Default:="LTA") If varEingabe False Then iText = varEingabe For lZeile = 1 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row If WkSh.Cells(lZeile, 1).Value "" Then WkSh.Cells(lZeile, 1).Value = "2014_" & iText & "_" & WkSh.Cells(lZeile, 1).Value End If Next lZeile End If End Sub

Option Explicit Sub Prefix() Dim lZeile&, varEingabe varEingabe = InputBox("Bitte Kürzel eingeben!" & vbLf & "LTA oder TST oder RNS", "Prefix in _ Spalte A", "LTA") If StrPtr(varEingabe) = 0 Then Exit Sub If UCase(varEingabe) "LTA" And UCase(varEingabe) "TST" And UCase(varEingabe) "RNS" _ Then Exit Sub If varEingabe vbNullString And Len(Trim(varEingabe)) > 0 Then For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(lZeile, 1).Value "" Then Cells(lZeile, 1).Value = "2014_" & UCase(varEingabe) & "_" & Cells(lZeile, 1).Value End If Next lZeile End If End Sub

Hallo Selma,
Die Inputbox liefert dir ggf. Text, da iText als Integer deklariert ist kommt Typ-Fehler.
du kannst die Zeile
iText = varEingabe
weglassen und in der anderén Zeile statt iText die Variable vaeEingabe verwenden

         WkSh.Cells(lZeile, 1).Value = "2014_" & varEingabe & "_" & WkSh.Cells(lZeile, 1).Value

oder du musst iText als String oder Variant deklarieren.
Ich würde das wie folgt lösen, so dass auch die zulässigen Eingaben geprüft werden
Gruß
Franz

Sub Prefix()
Dim WkSh As Worksheet
Dim lZeile As Long
Dim iText As Long, varEingabe
Set WkSh = ActiveSheet
Eingabe:
varEingabe = Application.InputBox(Prompt:="Bitte Kürzel eingeben!" & vbLf _
& "LTA oder TST  oder RNS", _
Title:="Prefix in Spalte A", Default:="LTA")
Select Case varEingabe
Case False
Case "LTA", "TST", "RNS"
For lZeile = 1 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh.Cells(lZeile, 1).Value  "" Then
WkSh.Cells(lZeile, 1).Value = "2014_" & varEingabe & "_" & WkSh.Cells(lZeile, 1). _
Value
End If
Next lZeile
Case Else
MsgBox "unzulässige Eingabe für Prefix in Spalte A"
GoTo Eingabe
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

Zellinhalte nach links verschieben (lückenlos)?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
1	2014_LTA_2014_LTA_A
2	2014_LTA_2014_LTA_B
3	2014_LTA_2014_LTA_C

Zellinhalte nach links verschieben (lückenlos)?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread