16.05.2023, 12:17
Hallo Leute,
ich brauch auch mal wiedr Hilfe.
Ich kann aus meiner Brandmeldeanlage die Texte für Melder/Meldergruppe als .csv exportieren.
Diese kopiere ich mir dann in meine grosse BMA-Datei.
Dann muss ich die Texte von der csv ins Blatt "Peripherie" übertragen.
Dazu hab ich mir ein kleines Makro zusammengekritzelt.
Funktioniert auch fast schon.
Nur...
1. kann es vorkommen, dass es Zellen mit Endeung /00 mehrfach gibt
und der Text in alle übertragen werden muss. (Bsp. Zeile 27)
2. Falls eine "MG" nicht gefunden wird hab ich einen Fehler in meiner BMA-Datei.
Das müsste ich natürlich wissen, um es korrigieren zu können. (Bsp. Zeile 28)
Am Besten im Blatt "Fehler" ein kleiner Eintrag - "1908/01" nicht gefunden. o.ä.
Stark abgespeckte Test.xlsx habe ich beigefügt.
Mein Code:
Sub CSV_import()
Dim MG As String
Dim Celle As Range
Dim Zelle As Range
Dim Textneu As String
For Each Celle In Worksheets("csv").Range("C2:C1000")
If Celle.Value = "" Then GoTo leer
If Celle.Offset(0, 1).Value = "" Then
MG = Celle.Text & "/00"
ElseIf Len(Celle.Offset(0, 1).Text) = 1 Then
MG = Celle.Text & "/0" & Celle.Offset(0, 1).Text
Else: MG = Celle.Text & "/" & Celle.Offset(0, 1).Text
End If
Textneu = Celle.Offset(0, 2).Text
Set Zelle = Sheets("Peripherie").Columns("B:B").Find(what:=MG)
'falls es statt Einzeltexten nur einen Gruppentext gibt
If Celle.Offset(0, 2).Value = "" Then
Zelle.Offset(0, 7).Value = Zelle.Offset(-1, 7).Value
Else: Zelle.Offset(0, 7).Value = Textneu
End If
leer:
Next Celle
End Sub
So, hier komme ich nicht weiter
Achja, da unsere EDV alle eingehenden Excels blockt, hier bitte nur Code schreiben.
Vielen Dank im Voraus
PS. Sch... jetzt werden alle xls geblockt
Gruss Igel
2.Versuch
ich brauch auch mal wiedr Hilfe.
Ich kann aus meiner Brandmeldeanlage die Texte für Melder/Meldergruppe als .csv exportieren.
Diese kopiere ich mir dann in meine grosse BMA-Datei.
Dann muss ich die Texte von der csv ins Blatt "Peripherie" übertragen.
Dazu hab ich mir ein kleines Makro zusammengekritzelt.
Funktioniert auch fast schon.
Nur...
1. kann es vorkommen, dass es Zellen mit Endeung /00 mehrfach gibt
und der Text in alle übertragen werden muss. (Bsp. Zeile 27)
2. Falls eine "MG" nicht gefunden wird hab ich einen Fehler in meiner BMA-Datei.
Das müsste ich natürlich wissen, um es korrigieren zu können. (Bsp. Zeile 28)
Am Besten im Blatt "Fehler" ein kleiner Eintrag - "1908/01" nicht gefunden. o.ä.
Stark abgespeckte Test.xlsx habe ich beigefügt.
Mein Code:
Sub CSV_import()
Dim MG As String
Dim Celle As Range
Dim Zelle As Range
Dim Textneu As String
For Each Celle In Worksheets("csv").Range("C2:C1000")
If Celle.Value = "" Then GoTo leer
If Celle.Offset(0, 1).Value = "" Then
MG = Celle.Text & "/00"
ElseIf Len(Celle.Offset(0, 1).Text) = 1 Then
MG = Celle.Text & "/0" & Celle.Offset(0, 1).Text
Else: MG = Celle.Text & "/" & Celle.Offset(0, 1).Text
End If
Textneu = Celle.Offset(0, 2).Text
Set Zelle = Sheets("Peripherie").Columns("B:B").Find(what:=MG)
'falls es statt Einzeltexten nur einen Gruppentext gibt
If Celle.Offset(0, 2).Value = "" Then
Zelle.Offset(0, 7).Value = Zelle.Offset(-1, 7).Value
Else: Zelle.Offset(0, 7).Value = Textneu
End If
leer:
Next Celle
End Sub
So, hier komme ich nicht weiter
Achja, da unsere EDV alle eingehenden Excels blockt, hier bitte nur Code schreiben.
Vielen Dank im Voraus
PS. Sch... jetzt werden alle xls geblockt
Gruss Igel
2.Versuch