Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Schreiben für die Arbeit / Ausbildung
23.07.2020 10:23:08 Tristan
NotSolved
23.07.2020 10:24:34 Gast60109
NotSolved

Ansicht des Beitrags:
Von:
Tristan
Datum:
23.07.2020 10:23:08
Views:
50
Rating: Antwort:
  Ja
Thema:
Makro Schreiben für die Arbeit / Ausbildung
Sub neuundbesser()
Dim IngLz As Long, IngZ As Long, IngSpalter As Long
IngSpalte = 1 '1=Spalter A, 2=Spalter B etc.

IngZ = Cells(Rows.Count, IngSpalte).End(x1Up).Row 'Letzte Zeile in der Spalte ermitteln

For IngZ = 1 To IngLz 'Beginnt ab Zeile 1
If Cells(IngZ, IngSpalte).Value <> "" Then 'prüft ob das Feld leer ist
Cells(IngZ, IngSpalte).Value = "|" & Cells(IngZ, IngSpalte).Text 'fügt "|" an erster Stelle des feldes hinzu
End If
Next
End Sub
-----------------------------------------------------------------------------------------------------------------------
Sub Zusammenfassen()
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String

'TrennZ = "" 'Direkt aneinander
'TrennZ = " " 'Leerzeichen
TrennZ = Chr(10) 'Neue Zeile

For Each Zelle In Selection
    Text = Text & Zelle.Value & TrennZ
Next

Set Zelle = Nothing
On Error Resume Next
Set Zelle = Application.InputBox(Prompt:="Zielzelle auswählen", Type:=8)
On Error GoTo 0
If Not Zelle Is Nothing Then Zelle.Value = Left(Text, Len(Text) - 1)
End Sub

------------------------------------------------------------------------------------------------------------------------


Sub RoutingAnpassung()
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
For Each Zelle In Selection.Cells
If Left(Zelle.Value, 1) <> "|" Then Zelle.Value = "|" & Zelle.Value
Next
End Sub


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Schreiben für die Arbeit / Ausbildung
23.07.2020 10:23:08 Tristan
NotSolved
23.07.2020 10:24:34 Gast60109
NotSolved