Ich habe ein Makro das ein Diagramm erzeugt am laufen und möchte, dass es… wenn keine Daten vorhanden sind kein Diagramm erstellt. Sondern nur wenn Daten vorhanden sind.
Habe mit IF THEN ELSE was probiert, klappte aber leider nicht.
Hat jemand ein Idee
Code:
Private Sub Graph_Click()
On Error GoTo Fehler
Range(„B13:C33“).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(„Tabelle1“).Range(„B13:C33“), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = „=“„Volt“""
ActiveChart.SeriesCollection(1).Name = „=Tabelle1!R4C4“
ActiveChart.Location Where:=xlLocationAsObject, Name:=„Tabelle1“
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = „Volt“
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.Legend.Select
Selection.Delete
Set Diagramm = Sheets(„Tabelle1“).ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Diagramm.Export Filename:=„C:\Diagramm.gif“, FilterName:=„GIF“
Image1.Picture = LoadPicture(„c:\diagramm.gif“)
On Error GoTo 0
Fehler: Exit Sub
End Sub
Hi Flexo,
If Application.WorksheetFunction.CountBlank(Range(„B13:C33“)) = _
Range(„B13:c33“).Cells.Count Then Exit Sub
bzw.
If Application.WorksheetFunction.CountBlank(Range(„C13:C33“)) = _
Range(„C13:c33“).Cells.Count Then Exit Sub
Gruß
Reinhard
Hi Reinhard,
alles klar danke Dir.
Der Code: Range(„B2“) = Mid(Range(„B4“).QueryTable.Connection, 6)
war übrigends perfekt… wie Du auf den gekommen bist !!! hehe 
Gruss
Flexo
Der Code: Range(„B2“) = Mid(Range(„B4“).QueryTable.Connection,
6)
war übrigends perfekt… wie Du auf den gekommen bist !!! hehe
-)
Hi Flexo,
was meinst du damit, wie ich darauf gekommen bin?
a) Mid(Range(„B4“).QueryTable.Connection,6) sagt mir grad überhaupt garnix,
b) mein Hausarzt Dr. Alzheimer sagte zu a) ich soll mir deshalb keine Sorgen machen wenn ich nix von Irgendwas weiß
Mein Name ist Hase und ich weiß von nix und vertraue meinem Arzt.
Gruß
Reinhard
Hi Reinhard
Solange es nicht Parkinson ist… gehts ja noch.
Es ging um:
öffnen eines txt files, einfügen in das activsheet und gleichzeitiges einfügen des txt files Namen. Das Problem war, dass immer nur der Name
des activesheet angezeigt wurde. Mit QueryTable.Connection hat sich aber das Problem gelöst .-)
Hat es klick gemacht ?
Gruss
Flexo
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
öffnen eines txt files, einfügen in das activsheet und
gleichzeitiges einfügen des txt files Namen. Das Problem war,
dass immer nur der Name
des activesheet angezeigt wurde. Mit QueryTable.Connection hat
sich aber das Problem gelöst .-)
Hat es klick gemacht ?
Hallo Flexo,
jepp, erinnere mich wieder daran.
Wie so oft war erst mal das Problem, das genaue Problem herauszukitzeln, dann auf .Connection zu kommen, Rest ist dann relativ easy
Gruß
Reinhard
Gruss
Flexo
Der Code: Range(„B2“) = Mid(Range(„B4“).QueryTable.Connection,
6)
war übrigends perfekt… wie Du auf den gekommen bist !!! hehe
-)
Hi Flexo,
was meinst du damit, wie ich darauf gekommen bin?
a) Mid(Range(„B4“).QueryTable.Connection,6) sagt mir grad
überhaupt garnix,
b) mein Hausarzt Dr. Alzheimer sagte zu a) ich soll mir
deshalb keine Sorgen machen wenn ich nix von Irgendwas weiß
-)
Mein Name ist Hase und ich weiß von nix und vertraue meinem
Arzt.
Gruß
Reinhard