Thema Datum  Von Nutzer Rating
Antwort
13.07.2020 11:42:59 Armin
Solved
Blau Excel VBA Tabelleneinträge umformatieren
 13.07.2020 16:14:38 Martin
NotSolved
13.07.2020 16:44:52 Mase
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
13.07.2020 16:14:38		 Views:
761		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Tabelleneinträge umformatieren

Hallo Armin,

Verknüpfe die Funktion "auswertung" mit deinem Button.

Du könntest den ganzen SQL-Befehl gleich von VBA erstellen lassen

Lg.

Martin

 

Function auswertung()

Dim dl As Range 'Startzelle im Eingabeblatt

Dim ausgabe As String 'Auswertung
Dim ct As Long 'Zähler Datensatz

Set dl = Sheets("Import").Range("A1")
ausgabe = ""
'oder ausgabe = "SELECT * FROM ..."
ct = 0

While dl.Offset(ct + 1, 0).Value <> "" 'solange Nachfolger
    ausgabe = ausgabe & convert(dl.Offset(ct, 0).Value)
    ct = ct + 1
Wend
ausgabe = ausgabe & convert(dl.Offset(ct, 0).Value, True)

' Alternativ:
' ausgabe = ausgabe & "..." (unter den Anführungszeichen den Rest des SQL-Befehls

Sheets("Export").Range("A1").Value = ausgabe ' Ausgabe im Blatt "Eport" in der Zelle A1

End Function



Function convert(wert As String, Optional last As Boolean = False)
wert = "'" & CStr(wert) & "'"
If last = False Then
wert = wert & ", "
End If
convert = wert
End Function

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
13.07.2020 11:42:59 Armin
Solved
Blau Excel VBA Tabelleneinträge umformatieren
 13.07.2020 16:14:38 Martin
NotSolved
13.07.2020 16:44:52 Mase
NotSolved