habe ein kl. Problem:
Ich möchte mir über die MsgBox den Zelleninhalt eines vorgegebenen Datenbereiches anzeigen lassen, welches ich dann über einen Button zuweise, soweit, sogut.
VBA meldet mir einen Laufzeitfehler 17 mit dem Inhalt "Datentypenunverträglichkeit".
Was ist an diesem Code falsch ??
Bin für jede Hilfe dankbar!!!
Gruß, Robert :)
Sub Ft_anzeigen()
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x As String
a = Range("gm7").Value
b = Range("gn7").Value
c = Range("gm8").Value
d = Range("gn8").Value
e = Range("gm9").Value
f = Range("gn9").Value
g = Range("gm10").Value
h = Range("gn10").Value
i = Range("gm11").Value
j = Range("gn11").Value
k = Range("gm12").Value
l = Range("gn12").Value
m = Range("gm13").Value
n = Range("gn13").Value
o = Range("gm14").Value
p = Range("gn14").Value
q = Range("gm15").Value
r = Range("gn15").Value
s = Range("gm16").Value
t = Range("gn16").Value
u = Range("gm17").Value
v = Range("gn17").Value
w = Range("gm18").Value
x = Range("gn18").Value
MsgBox ("a" & "b") & Chr(13) _
("") & Chr(13) & _
("c" & "d") & Chr(13) _
("e" & "f") & Chr(13) _
("g" & "h") & Chr(13) _
("i" & "j") & Chr(13) _
("k" & "l") & Chr(13) _
("m" & "n") & Chr(13) _
("o" & "p") & Chr(13) _
("q" & "r") & Chr(13) _
("s" & "t") & Chr(13) _
("u" & "v") & Chr(13) _
("w" & "x") & Chr(13), vbInformation, "Hinweis!"
End Sub