Hallo Leute,
ich habe das Problem, wenn ich aus einer E-Mail mir ein VBA-Code kopiere und in eine Anwendung einfüge, dass ich eine leere Zeile mehr habe als gewünscht.
Beispiel vorher:
Sub ListeFuellen(rngBereich As Range)
Dim Zeile As Long, Spalte As Long
For Zeile = 1 To rngBereich.Rows.Count
If rngBereich.Cells(Zeile, 2) = 0 Or rngBereich.Cells(Zeile, 2) = "" Then
Else
lngIndex = lngIndex + 1
ReDim Preserve arrListe(1 To 4, 1 To lngIndex)
For Spalte = 1 To 4
arrListe(Spalte, lngIndex) = rngBereich.Cells(Zeile, Spalte)
Next
End If
Next
End Sub
Beispiel so soll es nachher sein:
Sub ListeFuellen(rngBereich As Range)
Dim Zeile As Long, Spalte As Long
For Zeile = 1 To rngBereich.Rows.Count
If rngBereich.Cells(Zeile, 2) = 0 Or rngBereich.Cells(Zeile, 2) = "" Then
Else
lngIndex = lngIndex + 1
ReDim Preserve arrListe(1 To 4, 1 To lngIndex)
For Spalte = 1 To 4
arrListe(Spalte, lngIndex) = rngBereich.Cells(Zeile, Spalte)
Next
End If
Next
End Sub
Ich habe mir gedacht ein GUI zu machen, in dem ich den Code aus der E-Mail einfüge und auf Button "Bearbeiten" klicke, der dann dies bearbeitet (immer eine leere Zeile löscht) ==> dann alles markieren ===> ausschneiden.
Aber mir fehlt im Code diese Funktion.
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)
[/autoit][autoit][/autoit][autoit]$hGui = GUICreate('Delete_One_empty_Row', 600, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$hEdit = GUICtrlCreateEdit('', 10, 10, 580, 240)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$hSave = GUICtrlCreateButton('Bearbeiten', 220, 260, 120, 22)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetOnEvent(-1, '_Edit')
GUISetState()
WinSetOnTop($hGui, '', 1)
Global $hNext = _ClipBoard_SetViewer($hGui)
GUIRegisterMsg($WM_CHANGECBCHAIN, 'WM_CHANGECBCHAIN')
GUIRegisterMsg($WM_DRAWCLIPBOARD, 'WM_DRAWCLIPBOARD')
While Sleep(1000)
WEnd
[Blockierte Grafik: http://www.imgbox.de/users/public/images/svMccUUMyV.jpg]
Besten Dank im Voraus!
Viele Grüße,
Dino