Javescript
24.06.2020 20:49:45
Epping
zudem ich aber bisher noch nix Betragen konnte. Sorry
Jetzt hatte ich aber das Problem das ich viel Excel daten in ein Javascript "Array" eintragen musste.
Also hab ich dieses klenes Tool gebastelt
Im Prinzp ist auch Alles darin von Hier geklaut (Danke dafür)
Ich hoffe das es auch andere gebrauchen können
Vieleit hat ja noch jemand eine bessere Idee ?
mfg
Gerd
Sub ExcelZuJavescriptArray()
Cells.Copy
Sheets.Add After:=ActiveSheet
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For spalte = letztespalte To 1 Step -1
Columns(spalte).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
For zeile = 1 To letztezeile
Cells(zeile, spalte).Value = ""","""
Next zeile
Next spalte
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
For zeile = 1 To letztezeile
Cells(zeile, letztespalte).Value = """);"
Next zeile
For zeile = 1 To letztezeile
Cells(zeile, 1).Value = "ExcelArray[" & (zeile - 1) & "] = new Array("""
Next zeile
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For zeile = 1 To letztezeile
For spalte = 1 To letztespalte
Cells(zeile, letztespalte + 1).Value = Cells(zeile, letztespalte + 1).Value & Cells(zeile, _
spalte).Value
Next spalte
Next zeile
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column - 1
Cells(letztezeile, letztespalte).Select
letzteCelle = Selection.Address
Range("A1:" & letzteCelle).Select
Selection.Delete Shift:=xlToLeft
End Sub