Option Explicit

Sub zweizahlenaddieren()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Modulo As Integer
Dim Division As Integer
 
Zahl1 = InputBox("Zahl 1 eingeben")
Zahl2 = InputBox("Zahl 2 eingeben")
If Zahl2 = 0 Then
MsgBox ("durch 0 nicht teilbar")
Else
If Zahl1 Mod Zahl2 = 0 Then
MsgBox ("Teilbar")
Else
MsgBox ("nicht teilbar")
End If
End If
 
End Sub


-----------------
Sub fkt_Quersumme()
Dim i As Long
Dim j As Long
Dim erg As Integer
Dim S As String
S = InputBox("Bitte die Zahl eingeben", "Quersumme bilden")
j = CLng(S)
If IsNumeric(S) = False Then Exit Sub
For i = 1 To Len(S)
    erg = erg + CInt(Mid(S, i, 1))
Next
MsgBox "Quersumme von '" & S & "' ist:" & vbCrLf & erg
End Sub


------------------------
Sub Geradeungerade()
Dim ein As Integer

ein = InputBox("Eingabe", "Gerade & Ungerade")

Select Case IsNumeric(ein)
Case ein Mod 2 = 0
MsgBox "gerade"
Case Else
MsgBox "ungerade"
End Select


End Sub




-----------------------
Sub Zahlenraten()
Dim versuch As Integer
Dim ein As Integer
Dim zufall As Integer

zufall = Int(1 + (Rnd(10) + 100))
versuch = 0
Debug.Print (zufall)


Do
ein = InputBox("Eingabe", "Zahlenraten")
versuch = versuch + 1

Select Case IsNumeric(ein)
Case ein = zufall
MsgBox ("Richtig, nach " & versuch & ". Versuch")
Exit Do
Case ein < zufall
MsgBox ("zu klein " & versuch & ". Versuch")
Case ein > zufall
MsgBox ("zu gro? " & versuch & ". Versuch")
End Select

If MsgBox("Weiter? ", vbYesNo, "Bitte w?hlen") = vbNo Then Exit Do
Loop

End Sub



-----------------------------
Public Sub Mirror_h()
 Dim rngCol          As Range
 Dim intS            As Integer
     intS = 0
     For Each rngCol In Selection.Columns
         rngCol.Copy rngCol.Offset(0, (Selection.Columns.Count - intS) * 2 - 1)
         intS = intS + 1
     Next rngCol
 End Sub
 
 
 
 
----------------------------------- 
Sub spiegeln()
Dim FeldQ, AnzZ As Long, AnzS As Long, Z As Long, S As Long
FeldQ = Range("A1:C3")
AnzZ = UBound(FeldQ, 1)
AnzS = UBound(FeldQ, 2)
ReDim FeldZ(1 To AnzZ, 1 To AnzS)
For Z = 1 To AnzZ
For S = 1 To AnzS
FeldZ(Z, S) = FeldQ(Z, AnzS - S + 1)
Next S
Next Z
Range("E1:G3") = FeldZ
End Sub
Public Sub tr_Mirror2()
Dim rngCol                    As Range
Dim intI                      As Integer

    For Each rngCol In Range("A1:C3").Columns
        rngCol.Copy Columns(7 - intI)
        intI = intI + 1
    Next rngCol
End Sub




--------------------------------------
Sub BereichMultiplizieren()
Dim Bereich As Range
Dim Zelle As Range
Dim Faktor As Variant
Faktor = 1.1
Set Bereich = Selection
For Each Zelle In Bereich
If IsNumeric(Zelle.Value) Then
Zelle.Formula = Zelle.Value * Faktor
End If
Next Zelle
End Sub



--------------------------
Sub multi1()
 Dim n As Integer
 Dim m As Integer
 Dim Spalten As Integer
 Dim Zeilen As Integer
 Dim erg As Integer
 Zeilen = Cells(Rows.Count, 1).End(xlUp).Row
 Spalten = Cells(1, Columns.Count).End(xlToLeft).Column
 
   For n = 1 To Spalten
      erg = 1
      For m = 1 To Zeilen
         If IsNumeric(Cells(n, m).Value) Then
            erg = erg * Cells(n, m).Value
         End If
      Next
      Cells(n, Zeilen + 1).Value = erg
   Next
   
   For m = 1 To Zeilen
      erg = 1
      For n = 1 To Spalten
         If IsNumeric(Cells(n, m).Value) Then
            erg = erg * Cells(n, m).Value
         End If
      Next
      Cells(Spalten + 1, m).Value = erg
   Next
   
End Sub