Microsoft Office Tutorials and References
In Depth Information
Kapitel 7 – Tipps und Tricks
strOrder = "A2"
End If
Translate (strOrder)
With Me
.lstTerms.ListIndex = -1
.txtTranslation = ""
.Height = 390
.cmdOK.Top = 324
.lstTerms.Visible = True
End With
End Sub
Listing 7.8: Makro für die Option „Englisch-Deutsch“
Private Sub optED_Click()
Dim strOrder As String
If Me.optED.Value = True Then
strOrder = "A2"
Else
strOrder = "B2"
End If
Translate strOrder
With Me
.lstTerms.ListIndex = -1
.txtTranslation = ""
.Height = 390
.cmdOK.Top = 324
.lstTerms.Visible = True
End With
End Sub
Listing 7.9: Makro startet beim Anklicken eines Begriffes in der Liste und präsentiert
die Übersetzung im Textfeld
Private Sub lstTerms_Click()
Dim intOffset As Integer
If Selection.Column = 1 Then
intOffset = 1
Else
intOffset = -1
End If
Me.txtTranslation.Value = _
Selection.Cells(Me.lstTerms.ListIndex + 1, 1).Offset(0, intOffset)
End Sub
Listing 7.10: Funktion sortiert die Begriffe und präsentiert sie im Listenelement
Function Translate(strOrder As String)
Dim wb As Workbook, shTerms As Worksheet
Set wb = ThisWorkbook
Set shTerms = wb.Sheets("Fachbegriffe")
Search JabSto ::




Custom Search