Nur zur Info, hier das ganz Makro.
Private Sub NewEntry_Click()
Dim COUNT As Integer
Dim CT As Integer
Dim DATUM As Date
Dim ZEIT As Date
Dim OWNCALL As String
Dim OWNDMR As String
Dim OWNFLAG As String
Dim FREQ As Long
Dim BAND As String
Dim MODE As String
Dim RELAIS As String
Dim RECE As String
Dim TRAN As String
Dim RCALL As String
Dim RDMR As String
Dim RFLAG As String
Dim QUAL As String
Dim NOTES As String
Dim REIHE As Integer
If Worksheets("Log-Data").Cells(3, 1) = "" Then
CT = 1
Else
CT = CT
End If
DATUM = CDate(Format(Now, "dd.mm.yy"))
ZEIT = CDate(Format(Now, "Hh:Nn:Ss"))
OWNCALL = Worksheets("Log-Entry").Cells(7, 4)
OWNDMR = Worksheets("Log-Entry").Cells(8, 4)
OWNFLAG = Worksheets("Log-Entry").Cells(6, 4)
FREQ = InputBox("Used Frequency in MHz like 145000,00")
BAND = InputBox("Used Frequency Band in m like 2m")
MODE = InputBox("Used Mode like FM, DMR...")
If MODE = "FM" Or MODE = "DMR" Or MODE = "fm" Or MODE = "dmr" Or MODE = "Fm" Or MODE = "Dmr" Then
RELAIS = InputBox("Eventually used Relais in FM or DMR...")
Else
RELAIS = "none"
End If
RECE = InputBox("Received Signal Level")
TRAN = InputBox("Transmitted Signal Level")
RCALL = InputBox("Callsign of OM/YL")
If MODE = "DMR" Then
RDMR = InputBox("DMR-ID of OM/YL")
Else
RDMR = "none"
End If
RFLAG = InputBox("Country of OM/YL")
QUAL = InputBox("Quality of QSO")
NOTES = InputBox("Eventually Notes to the QSO")
If CT = 1 Then
COUNT = 1
GoTo Output
Else
Worksheets("Log-Data").Rows("3:3").Select
Selection.Insert Shift:=xlDown
GoTo Output
End If
Output:
Worksheets("Log-Data").Cells(3, 1) = COUNT
Worksheets("Log-Data").Cells(3, 2) = DATUM
Worksheets("Log-Data").Cells(3, 3) = ZEIT
Worksheets("Log-Data").Cells(3, 4) = OWNCALL
Worksheets("Log-Data").Cells(3, 5) = OWNDMR
Worksheets("Log-Data").Cells(3, 6) = OWNFLAG
Worksheets("Log-Data").Cells(3, 7) = FREQ
Worksheets("Log-Data").Cells(3, 8) = BAND
Worksheets("Log-Data").Cells(3, 9) = MODE
Worksheets("Log-Data").Cells(3, 10) = RELAIS
Worksheets("Log-Data").Cells(3, 11) = RECE
Worksheets("Log-Data").Cells(3, 12) = TRAN
Worksheets("Log-Data").Cells(3, 13) = RCALL
Worksheets("Log-Data").Cells(3, 14) = RDMR
Worksheets("Log-Data").Cells(3, 15) = RFLAG
Worksheets("Log-Data").Cells(3, 16) = QUAL
Worksheets("Log-Data").Cells(3, 17) = NOTES
COUNT = COUNT + 1
CT = CT + 1
End Sub
evtl. sieht man ja so was gemeint ist...
mfG
thiro
|